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SEO 0012 



515 




516 




517 




518 




519 




520 




521 




522 




523 




524 




525 




526 




527 




528 




529 




530 




531 




532 




533 




534 




535 




536 


001 100 


537 




538 




539 




540 




541 


000011 


542 


000012 


543 


000015 


544 


000200 


545 


177776 


546 




547 


177774 


548 


177772 


549 


177570 


550 


177570 


551 




552 




553 


000000 


554 


000001 


555 


000002 


556 


000003 


557 


000004 


558 


000005 


559 


000006 


560 


000007 


561 


000005 


562 


000007 


563 




564 




565 


000000 


566 


000040 


567 


000*00 


568 


000140 


569 


000200 


570 


000240 



.TITLE CFKTHBO PDP 11/34 MEM MGNT DIAG 

{♦THIS PROGRAM W«S ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

;*PACKAGE (MAINDEC-1 1-DZQAC-C3) , JAN 19, 1977. 

J * 

.SBTTL OPERATIONAL SWITCH SETTINGS 



15 


HALT ON ERROR 


14 


LOOP ON TEST 


13 


INHIBIT ERROR TYPEOUTS 


12 


INHIBIT TRACE TRAP 


11 


INHIBIT ITERATIONS 


10 


BELL ON ERROR 


9 


LOOP ON ERROR 


8 


LOOP ON TEST IN SWR<7:0> 



.SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK PDINTER ♦ ** 1100 *** 
STACK* 1100 

.EQUIV EMT.ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EQUIV IDT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



♦MISCELLANEOUS DEFINITIONS 



HT = 


11 ; 


LF = 


12 ; 


CR = 


15 ; 


CRLF* 


200 ; 


PS = 


177776 ; 


.EQUIV 


PS.PSW 


STKLMT* 


177774 ; 


PIRQ* 


177772 ; 


DSWR* 


177570 ; 


DDISP» 


177570 ; 


;*GENERAL PURPOSE REGISTE 


R0 = 


%o 


R1 = 


%1 ; 


R2* 


%2 ; 


R3 = 


%3 ; 


R4 = 


%4 


R5« 


%5 ; 


R6 = 


%6 ; 


R7 = 


%7 ; 


SP* 


%6 ; 


PC* 


%7 ; 


{♦PRIORITY LEVEL DEFINITI 


PRO* 


5 


PR1» 


40 ; 


PR2» 


100 ; 


PR3* 


140 ; 


PR4* 


200 ; 


PR5* 


240 ; 



{CODE FOR HORIZONTAL TAB 

;CODE FOR LINE FEED 

{CODE FOR CARRIAGE RETURN 

;CODE FOR CARRIAGE RETURN-LINE FEED 

; PROCESSOR STATUS WORD 

;STACK LIMIT REGISTER 
; PROGRAM INTERRUPT REQUEST REGISTER 
{HARDWARE SWITCH REGISTER 
-.HARDWARE DISPLAY REGISTER 



{GENERAL REGISTER 

-.GENERAL REGISTER 

-.GENERAL REGISTER 

{GENERAL REGISTER 

•.GENERAL REGISTER 

{GENERAL REGISTER 

{GENERAL REGISTER 

{GENERAL REGISTER 
{STACK POINTER 

{PROGRAM COUNTER 



{PRIORITY LEVEL 

{PRIORITY LEVEL 1 

{PRIORITY LEVEL 2 

{PRIORITY LEVEL 3 

{PRIORITY LEVEL 4 

{PRIORITY LEVEL 5 
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SEO 0013 



571 


000300 


572 


000340 


573 




574 




575 


100000 


576 


040000 


577 


020000 


578 


010000 


579 


004000 


580 


002000 


581 


001000 


582 


000400 


583 


000200 


584 


000100 


585 


000040 


586 


000020 


587 


000010 


588 


000004 


589 


000002 


5yo 


000001 


591 




592 




593 




594 




595 




596 




597 




598 




599 




600 




601 




602 




603 


100000 


604 


040U00 


605 


020000 


60S 


010000 


607 


004000 


606 


002000 


609 


001000 


610 


000400 


611 


000200 


612 


000100 


613 


000040 


614 


000020 


615 


000010 


616 


000004 


617 


000002 


618 


000001 


619 




620 




621 




622 




623 




624 




625 




626 





PR6 = 


300 {{PRIORITY LEVEL 6 


PR7* 


340 ; {PRIORITY LEVEL 7 


{♦"SWITCH REGISTER 8 SWITCH DEFINITIONS 


SW15 = 


100000 


SW14* 


40000 


SW13 = 


20000 


SW12* 


10000 


SW11* 


4000 


SW10 = 


2000 


SW09 = 


1000 


SW08 = 


400 


SW07 = 


200 


SW06» 


100 


SW05 = 


40 


SW04 = 


20 


SW03* 


10 


SW02s 


4 


SW01* 


2 


SWOO* 


1 


.EQUIV 


SW09.SW9 


.EQUIV 


SW08.SW8 


.EQUIV 


SW07.SW7 


.EQUIV 


SW06.SW6 


.EQUIV 


SW05.SW5 


•EQUIV 


SW04.SW4 


.EQUIV 


SW03.SW3 


.EQUIV 


SW02.SW2 


.EQUIV 


SW01.SW1 


.EQUIV 


SWOO.SWO 


{♦DATA 


BIT DEFINITIONS (BITOO TO BIT15) 


BIT15= 


100000 


BIT14* 


40000 


BIT13* 


20000 


BIT12* 


10000 


BIT 1 1 = 


4000 


BIT10= 


2000 


BIT09= 


1000 


BIT08* 


400 


BIT07» 


200 


BIT06* 


100 


BIT05* 


40 


BIT04» 


20 


BIT03= 


10 


BIT02= 


4 


BITQ1* 


2 


BITOO» 


1 


.EOUIV 


BIT09.BIT9 


.E(yUlV 


BIT08.BIT8 


.EQUIV 


BIT07.BIT7 


.EQUIV 


BIT06.BIT6 


.EQUIV 


BIT05.BIT5 


.EQUIV 


BIT04.BIT4 


.EQUIV 


BIT03.BIT3 


.EQUIV 


BIT02.BIT2 
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SEO 0014 



G27 
62B 




629 




630 




631 


000004 


632 


000010 


633 


000014 


634 


000014 


635 


000014 


636 


000020 


637 


000024 


638 


000030 


639 


000034 


640 


000"60 


641 


000064 


642 


000240 


643 




644 




645 




646 




647 


000250 


648 




649 




650 




651 


177572 


652 


177574 


653 


177576 


654 


172516 


655 




656 




657 




658 


177600 


659 


177602 


660 


177604 


661 


177606 


662 


177610 


663 


177612 


664 


177614 


665 


177616 


666 




667 




668 




669 


177640 


670 


177642 


671 


177644 


672 


177646 


673 


177650 


674 


177652 


675 


177654 


676 


177656 


677 




67B 




679 




680 


172300 


681 


172302 


682 


172304 



.EQUIV 


BIT01 


BIT1 




.EQUIV 


BIT00 


BIT0 




{♦BASIC 


"CPU" 


TRAP 


VECTOR 


ERRVEC* 


4 






RESVEC* 


10 






TBITVEC 


= 14 






TRTVEC* 


14 






BPTVEO 


14 






IOTVEO 


20 






PWRVEO 


24 






EMTVEO 


30 






TRAPVEC 


= 34 






TKVEO 


60 






TPVEC» 


64 






PIRQVEC 


'240 






.SBTTL 


MEMORY MANAGEMENT 



ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

■T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 

POWER FAIL 

EMULATOR TRAP (EMT) **ERR0R»* 

"TRAP 1 * TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 

DEFINITIONS 



;*KT11 VECTOR ADDRESS 

MMVECa 250 

;*KT11 STATUS REGISTER ADDRESSES 



I" PAGE DESCRIPTOR REGISTERS 



SROa 


177572 


SR1* 


177574 


SR2* 


177576 


SR3= 


172516 


}*! ~ER 


"I H PAG 


UIPDRO* 


177600 


UIPDR1* 


177602 


UIPDR2* 


177604 


UIPDR3* 


177606 


UIPDR4* 


177610 


UIPDR5* 


177612 


UIPDR6* 


177614 


UIPDR7* 


177616 



♦ USER 



PAGE ADDRESS REGISTERS 



UIPARO* 177640 

UIPAR1- 177642 

UIPAR2* 177644 

UIPAR3* 177646 

UIPAR4* 177650 

UIPAR5= 177652 

UIPAR6* 177654 

UIPAR7« 177656 

{♦KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDR0« 172300 

KIPDR1- 172302 

KIPDR2* 172304 
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KIPDR3* 172306 

KIPDR4* 172310 

KIPDR5- 172312 

KIPDR6» 172314 

KIPDR7» 172316 

;*KERNEL "I- PAGE ADDRESS REGISTERS 



SEQ 0015 



G83 


172306 


684 


172310 


685 


172312 


686 


172314 


687 


172316 


688 




6B9 




690 




691 


172340 


692 


172342 


693 


172344 


694 


172346 


G95 


172350 


696 


172352 


697 


172354 


698 


172356 


699 




700 




701 




702 




703 




704 


001100 


705 


000700 


706 




707 




708 




709 




710 




711 




712 




713 


000000 


714 




715 




716 




717 


000174 


718 


000174 000000 


719 


000176 000000 


720 




721 


000200 000137 


722 




723 




724 




725 




726 


000204 


727 


000046 


728 


000046 034760 


729 


000052 


730 


000052 000000 


731 


000204 


732 




733 




734 




735 




736 




737 


000204 


738 


000024 



KIPARO* 


172340 




KIPAR1* 


172342 




KIPAR2* 


172344 




KIPAR3* 


172346 




KIPAR4» 


172350 




KIPAR5* 


172352 




KIPAR6" 


172354 




KIPAR7" 


172356 






.EQUIV 


SP.KSP 




.EQUIV 


SP.USP 




.EQUIV 


BIT4.TBIT 




.EQUIV 


BIT6.WBIT 




KERSTK- 


STACK 




USESTK» 


STACK-200 



{♦ADDITIONAL DEFINITIONS 



.SBTTL TRAP CATCHER 

.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2.HALT" 
{♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
{♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

.*174 
DISPREG: .WORD {{SOFTWARE DISPLAY REGISTER 

SWREG: .WORD {{SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP 00START {{JUMP TO STARTING ADDRESS OF PROGRAM 
.SBTTL ACT11 HOOKS 

..***♦**********♦**♦♦♦♦*♦»*»**••*♦*♦»♦***•*♦*♦**♦«♦*♦»•******•*•♦ 
{HOOKS REQUIRED BY ACT11 

$SVPC». {SAVE PC 

.=46 

SENDAD 

.»52 

.WORD 

.*$SVPC 
.SBTTL APT PARAMETER BLOCK 

•;****#***♦*****♦*♦♦#****••***♦******♦♦*♦••♦**•**•*•*•*♦*•****••* 

{SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
•{*♦♦**»*♦**•**•****♦•*♦*♦*»♦*♦•**♦•*•**•****••***»*•*♦**•**•*••• 

.SX«. {{SAVE CURRENT LOCATION 

.»24 {{SET POWER FAIL TO POINT TO START OF PROGRAM 



;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

{{2)SET LOC.52 TO ZERO 
{{ RESTORE PC 
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SEO 0016 



739 


000024 


000200 


740 




000044 


741 


000044 


000204 


742 




000204 


743 






744 






745 






746 






747 


000204 




748 


000204 


000000 


749 


000206 


001226 


750 


000210 


000010 


751 


000212 


000020 


752 


000214 


000005 


753 


000216 


000052 



200 ;;FOR APT START UP 

.=44 { {POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ; {POINT TO APT HEADER BLOCK 

.«.$X {{RESET LOCATION COUNTER 
. j *********************************************** **************** 
{SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
{INTERFACE SPEC. 



SAPTHD: 

SHIBTS: 

SMBADR: 

STSTM: 

$pastm: 



.WORD 

.WORD SMAIL 

.WORD 10 

.WORD 20 



$unitm: .WORD 



;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
{ADDRESS OF APT MAILBOX (BITS 0-15) 
{RUN TIM OF LONGEST TEST 

{RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



.WORD $ETEND-$MAlL/2 ;; LENGTH MAILBOX-ETABLE(WORDS) 
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.SBTTL COMMON TAGS 



SEQ 0017 



754 






755 






756 






757 






758 






759 






760 




001100 


761 


001100 




762 


001100 


000000 


763 


001102 


000 


764 


001103 


000 


765 


001104 


000000 


766 


001106 


000000 


767 


0011 10 


00 0. oo 


768 


0011 12 


000000 


769 


0011 14 


000 


770 


0011 15 


001 


771 


0011 16 


000000 


772 


001120 


000000 


773 


001122 


000000 


774 


001124 


000000 


775 


001126 


000000 


776 


001130 


000000 


777 


001132 


000000 


778 


001134 


000 


779 


001135 


000 


780 


001136 


000000 


781 


001140 


177570 


782 


001142 


177570 


783 


001144 


177560 


784 


001146 


177562 


785 


001150 


177564 


786 


001152 


177566 


787 


001154 


ooo 


788 


001155 


002 


789 


001156 


012 


790 


001157 


000 


791 


001160 


000000 


792 






793 


001162 


000000 


794 


001164 


000000 


795 


001166 


000000 


796 


001170 


000000 


797 


001172 


000000 


798 


001174 


000000 


799 


001176 


000000 


600 


001200 


000000 


B01 


001202 


000000 


802 


001204 


000000 


803 


001206 


000000 


804 


001210 


oocooo 


805 


001212 


000000 


806 


001214 


000000 


807 


001216 


177607 


BOB 


001222 


077 


809 


001223 


015 



J J*************************************************************** 
{•THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
{•USED IN THE PROGRAM. 



{START OF COMMON TAGS 





.WORD 





STSTNM: 


.BYTE 





SERFLG: 


.BYTE 





$ICNT: 


.WORD 





SLPADR: 


.WORD 





SLPERR: 


.WORD 





SERTTL: 


.WORD 





SITEMB: 


.BYTE 





SERMAX: 


.BYTE 


1 


SERRPC: 


.WORD 





SGDADR: 


.WORD 





Sbdadr: 


.WORD 





SGDDAT: 


.WORD 





SBDDAT: 


.WORD 







.WORD 







.WORD 





SAUTOB: 


.BYTE 





SINTAG: 


.BYTE 







.WORD 





SWR: 


.WORD 


DSWR 


DISPLAY 


: .WORD 


DDISP 


$t: j: 


177560 




$TKB: 


177562 




$tps: 


177564 




$TPB: 


177566 




Snull: 


.BYTE 





SFILLS: 


.BYTE 


2 


SFILLC: 


.BYTE 


12 


STPFLG: 


.BYTE 





Sregad: 


.WORD 





SREGO: 


.WORD 





SREG1: 


.WORD 





SREG2: 


.WORD 





SREG3: 


.WORD 





SREG4: 


.WORD 





SREGf : 


.WORD 





STMPO: 


.WORD 





STMPi: 


.WORD 





STMP2! 


.WORD 





STMP3: 


.WORD 





STMP4: 


.WORD 





STMP5: 


.WORD 





STIMES: 







SESCAPE 


.0 




SBELL: 


.ASCIZ 


<207><377><377> 



SQUES: .ASCII /?/ 
$CRLF: .ASCII <15> 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED— NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERP'.'PT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS # OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG (BXT<07>«0«YES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREGO) WAS OBTAINED 

CONTAINS (($REGAD)+0) 

CONTAINS (( SREGAD )+2) 

CONTAINS (($REGAD)+4) 

CONTAINS (($REGAD)4-6) 

CONTAINS (($REGAD)+10) 

CONTAINS {($REGAD)*12) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 

QUESTION MARK 

CARRIAGE RETURN 
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SEO 001B 



yio 


001224 


000012 


01 1 






812 






013 






014 






815 






816 


001226 




817 


001226 


OOOOCO 


018 


001230 


000000 


019 


001232 


000000 


020 


001234 


000000 


821 


001236 


000000 


822 


001240 


000000 


023 


001242 


000000 


024 


001244 


000000 


025 


001246 




826 


001246 


000 


827 


001247 


000 


828 


001250 


000000 


029 


001252 


000000 


030 


001254 


000000 


831 






032 






833 






034 






035 






836 






837 


001256 


000 


833 


001257 


000 


839 






340 






341 






842 






843 


001260 


000000 


044 






845 


001262 


000 


846 


001263 


000 


847 


001264 


000000 


048 


001266 


000 


049 


001267 


000 


050 


001270 


oOoooo 


051 


001272 


000 


852 


001273 


000 


853 


001274 


OOOOOO 


854 


001276 


OOOOOO 


855 


001300 


OOOOOO 


856 


001302 


OOOOOO 


857 


001304 


OOOOOO 


858 


001306 


OOOOOO 


859 


001310 


OOOOOO 


860 


001312 


OOOOOO 


861 


001314 


OOOOOO 


662 


001316 


000?00 


863 


001320 


OOOOOO 


B64 


001322 


OOOOOO 


865 


001324 


OOOOOO 



$LF: .ASCIZ <12> 
.SBTTL APT MAILROX-ETABLE 



;;LINE FEED 



; ;*****« 


************** 


.EVEN 






$mail: 






SMSGTY: 


.WORD 


AMSGTY 


SFATal: 


.WORD 


AFATAL 


STEbTN: 


.WORD 


ATESTN 


$PASS: 


.WORD 


APASS 


SDEVCT: 


.WORD 


ADEVCT 


$UNIT: 


.WORD 


AUNIT 


SMSGAD: 


.WORD 


AMSGAD 


SMSGLG: 


.WORD 


AMSGLG 


SETABLE: 






$ENv: 


.BYTE 


AENV 


$ENVM: 


.BYTE 


AENVM 


$swreg: 


.WORD 


ASWREG 


$ugwr: 


.WORD 


AUSWR 


$cpuop: 


.WORD 


ACPUOP 



$MAMS1 : 
SMTYP1 : 



.BYTE 
.BYTE 



AMAMS1 
AMTYP1 



***#*****>(.***#*****>* ***J 



;APT MAILBOX 
{MESSAGE TYPE CODE 
; FATAL ERROR NUMBER 
;TEST NUMBER 
{PASS COUNT 
{DEVICE COUNT 
;I/0 UNIT NUMBER 
{MESSAGE ADDRESS 
-.MESSAGE LENGTH 
;APT ENVIRONMENT TABLE 
{ENVIRONMENT BYTE 
{ENVIRONMENT MODE BITS 
{APT SWITCH REGISTER 
;USER SWITCHES 
;CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

11/04=01, 11/05=02, 11/20*03, 11/40*04. 11/45*05 
1 1/70=06, PDQ=07,Q«10 
BIT 10=REAL TIME CLOCK 
BIT 9*FL0ATING POINT PROCESSOR 
BIT B=MEMORY MANAGEMENT 
{{HIGH ADDRESS. M.S. BYTE 
;;MEM. TYPE.BLK01 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR2002 
500 NSEC MOS=003 
HIGH ADDRESS, BLK/M 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK//2 
MEM. LAST ADDRESS, BLK#2 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK*3 
MEM. LAST ADDRESS, BLK#3 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK#4 
MEM. LAST ADDRESS, BLK#4 
INTERRUPT VECT0R*1,BUS PRI0RITY#1 
INTERRUPT VECTOR02BUS PRI0RITY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 
CONTROLLER DESCRIPTION W0RD#2 
DEVICE DESCRIPTOR WORD0O 
DEVICE DESCRIPTOR W0RD#1 
DEVICE DESCRIPTOR W0RD/C2 
DEVICE DESCRIPTOR W0RD#3 
DEVICE DESCRIPTOR WORD04 
DEVICE DESCRIPTOR W0RD#5 



SMAMS2: 


.BYTE 


AMAMS2 


SMTYP2: 


.BYTE 


AMTYP2 


SMADR2: 


.WORD 


AMADR2 


SMAMS3'. 


.BYTE 


AMAMS3 


$MTYP3: 


.BYTE 


AMTYP3 


SMADR3: 


.WORD 


AMADR3 


SMAMS4: 


.BYTE 


AMAMS4 


SMTYP4: 


.BYTE 


AMTYP4 


SMADR4: 


.WORD 


AMADR4 


SVECT1 : 


.WORD 


AVECT1 


SVECT2! 


.WORD 


AVECT2 


$BASE: 


.WORD 


ABASE 


SDEVM: 


.WORD 


ADEVM 


SCDWl : 


.WORD 


ACDW1 


$CDW2: 


.WORD 


ACDW2 


SDDWO: 


.WORD 


ADDWO 


$DDW1 : 


.WORD 


ADDW1 


SDDW2: 


.WORD 


ADDW2 


SDDW3: 


.WORD 


ADDW3 


SDDW4: 


.WORD 


ADDW4 


SDDW5: 


.WORD 


ADDW5 
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SEQ 0019 



066 


001326 


OOOOOO 


867 


001330 


OOOOOO 


868 


001332 


OOOOOO 


869 


001334 


OOOOOO 


87Q 


001336 


OOOOOO 


871 


001340 


OOOOOO 


872 


001342 


OOOOOO 


873 


001344 


OOOOOO 


874 


001346 


OOOOOO 


875 


001350 


OOOOOO 


876 






877 






878 


001352 




879 






880 






881 


001352 


OOOOOO 


882 


001354 


OOOOOO 


883 


001356 


OOOOOO 


884 


001360 


OOOOOO 


885 


001362 


OOOOOO 


886 


001364 


OOOOOO 


887 


001366 


OOOOOO 


888 


001370 


OOOOOO 


889 


001372 


OOOOOO 


890 


001374 


OOOOOO 


891 


001376 


OOOOOO 


892 


001400 


OOOOOO 


893 


001402 


OOOOOO 


894 


001404 


OOOOOO 


895 


001406 


OOOOOO 


896 


001410 


OOOOOO 



SDDW6: 


.WORD 


ADDW6 


•.DEVICE 


DESCRIPTOR 


W0RD#6 


$DDW7: 


.WORD 


ADDW7 


{DEVICE 


DESCRIPTOR 


W0RD#7 


$DDW8: 


.WORD 


ADDW8 


•.DEVICE 


DESCRIPTOR 


W0RD#8 


$DDW9: 


.WORD 


ADDW9 


{DEVICE 


DESCRIPTOR 


W0RD#9 


SDDW10: 


.WORD 


ADDW10 


{DEVICE 


DESCRIPTOR 


WORDAMO 


$DDW11: 


.WORD 


ADDW1 1 


{DEVICE 


DESCRIPTOR 


WORD* 11 


SDDW12: 


.WORD 


ADDW12 


{DEVICE 


DESCRIPTOR 


WORD012 


SDDW13! 


.WORD 


ADDW13 


{DEVICE 


DESCRIPTOR 


WORD4M3 


$DDW14: 


.WORD 


ADDW14 


{DEVICE 


DESCRIPTOR 


WORD014 


SDDW15: 


.WORD 


ADDW15 


{DEVICE 


DESCRIPTOR 


W0RDAM5 



TESTNO: 


.WORD 





WASR6: 


.WORD 





TRAPPC: 


.WORD 





TRAPPS: 


.WORD 





CORSRO: 


.WORD 





C0RSR2: 


.WORD 





WASSRO: 


.WORD 





WASSR2: 


.WORD 





TBITPS: 


.WORD 





ANDADR: 


.WORD 





ORADR: 


.WORD 





TONUM: 


.WORD 





VIRT1: 


.WORD 





VIRT2: 


.WORD 





pbalo: 


.WORD 





PBAHi: 


.WORD 






{HOLDS TEST NUMBER FOR TYPEOUTS 
{USED TO STORE THE STACK POINTER AFTER A T 
{USED TO STORE THE PC OF A TRAP OR ABORT 
{USED TO STORE THE PS OF A TRAP OR ABORT 
J+USED TO STORE THE COPRPCT SRO 

5+USED TO STORE THE CORRECT SR2 

{USED TO STORE CONTENTS OF SRO 

{USED TO STORE CONTENTS OR SR2 

{SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 

{HOLDS RESULT OF ADDRESSES BEING AND-ED 

{HOLDS RESULT OF ADDRESSES BEING OR-ED 

{HOLDS NUMBER OF TIME-OUTS 

{HOLDS VIRTUAL ADDRESS TO BE CONVERTED 

{HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
{HOLDS BITS < 1 7 : 1 6> OF PHYSICAL ADDRESS 
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.SBTTL ERROR POINTER TABLE 



SEQ 0020 



B98 






899 






900 






901 






902 






903 






904 






905 






906 






907 






908 






909 






910 






911 


001412 




912 






913 






314 


001412 


041616 


915 


001414 


045620 


916 


001416 


051220 


917 


001420 


0b2l 12 


918 






019 






920 


001422 


041656 


921 


00142* 


045670 


922 


001426 


051234 


923 


001430 


0521 17 


924 






925 






926 


001432 


041725 


927 


001434 


045760 


928 


001436 


051254 


929 


001440 


052126 


930 






931 






932 


001442 


041764 


933 


001444 


045760 


934 


001446 


051254 


935 


001450 


052126 


936 






937 






936 


001452 


042017 


939 


001454 


045760 


940 


001456 


051254 


941 


001460 


052126 


942 






943 






944 


001462 


042072 


945 


001464 


045760 


946 


001466 


051254 


947 


001470 


052126 


948 






949 






950 


001472 


042137 


951 


001474 


046020 


952 


001476 


051266 



;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

{♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

j*NOTE1: IF SITEMB 13 THE ONLY PERTINENT DATA IS ($ERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
DT 
DF 



SERRTB: 
;*ITEM 1 



EM1 
DH1 
DT1 
DF1 



{•ITEM 2 



EM2 
DH2 
DT2 
DF2 



EM3 
DH3 
DT3 
DF3 



EM4 
DH3 
DT3 
DF3 



;*ITEM 5 



EM5 
DH3 
DT3 
DF3 



;*ITEM 6 



EM6 
DH3 
DT3 
DF3 



{♦ITEM 7 



EM7 
DH7 
DT7 



;; POINTS TO THE ERROR MESSAGE 

;;POINTS TO THE DATA HEADER 

;; POINTS TO THE DATA 

? J POINTS TO THE DATA FORMAT 



{UNEXPECTED CPU TRAP TO LOC. 004 

JOLD PC OLD PSW R6 WAS TESTNO ERRORPC 

{TRAPPC, TRAPPS, WASR6, TESTNO, $ERPPC, 
;0, 0,0, 0,0 



{UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 

;OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC 
{TRAPPC, TRAPPS, WASR6. WASSRO, WASSR2, TESTNO. SERRPC, 
;0, 0,0, 0,0, 0,0 



{PRIORITY BITS SET WRONG IN PSW 
{WROTE READ TESTNO ERRORPC 
{SREGO, SREG1 .TESTNO, SERRPC, 
;0, 0,0,0 



;MODE BITS SET WRONG IN PSW 
{WROTE READ TESTNO ERRORPC 
;$REG0.$REG1 , TESTNO, SERRPC, 
{0,0,0,0 



{DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW 
{WROTE READ TESTNO ERRORPC 
;$REG0,$REG1 .TESTNO, SERRPC, 
{0,0,0,0 



{KERNEL R6 CHANGED BY WRITING USER R6 
{WROTE READ TESTNO ERRORPC 
;$REGO.$REG1 .TESTNO, SERRPC. 
{0,0,0,0 



;A MEMORY MGMT. REG. TIMED OUT 
{ADDRESS TESTNO ERRORPC 
{SREGO, TESTNO, SERRPC. 
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SEQ 0021 



953 


001500 


052132 


954 






955 






956 


001502 


042175 


957 


001504 


046050 


958 






959 


001506 


051276 


960 


001510 


052135 


961 






962 






963 


001512 


042241 


964 


001514 


046150 


965 






966 


001516 


051312 


967 


001520 


052142 


968 






969 






970 


001522 


042301 


971 


001524 


046270 


972 






973 


001526 


051326 


974 


001530 


052147 


975 






976 






977 


001532 


042350 


978 


001534 


046430 


979 


001536 


051344 


980 


001540 


052155 


981 






982 






983 


001542 


042405 


984 


001544 


046430 


985 


001546 


051344 


986 


001550 


052155 


987 






988 






989 


001552 


042440 


990 


001554 


046270 


991 






992 


001556 


051326 


993 


001560 


052147 


994 






995 






996 


001562 


042514 


997 


001564 


046460 


998 






999 


001566 


051354 


1000 


001570 


052160 


1001 






1002 






1003 


001572 


042556 


1004 


001574 


046560 


1005 






1006 


001576 


051372 


1007 


001600 


052166 


1008 







{*ITEM 


10 
EM10 
DH10 




DT10 
DF10 


; * 1 1 EM 


11 
EM11 
DH11 




DT11 
DF11 


{♦ITEM 


12 

EMI 2 
DH12 




DT12 
DF12 


{♦ITEM 


13 
EM13 
DH13 
DT13 
DF13 


{♦ITEM 


14 
EMM 
DH13 
DT13 
DF13 


{♦ITEM 


15 
EM15 
DH12 




DT12 
DF12 


{♦ITEM 


16 

EM16 
DH16 




DT16 
DF16 


{♦ITEM 


17 

EM17 
DH17 




DT17 
DF17 



{SUMMARY OF MEM. MGMT. REG. TIMEOUTS 
{REGISTER-ADDRS NUM. OF 

{AND-ED OR-ED TIMOUTS TESTNO ERRORPC 
{ANDADR.ORADR.TONUM, TESTNO, SERRPC. 
{0,0,1 ,0,0 



;MEM. MGMT. REG. WOULD NOT CLEAR 

{REGISTR READ READ-( BINARY ) 

{ADDRESS (OCTAL) 5432109876543210 TESTNO 

{ SREGO, $REG1,$REG1, TESTNO, SERRPC, 

{0,0,2,0,0 



ERRORPC 



;MEM. MGMT. REG. BITS NOT SET CORRECTLY 

{REGISTR WROTE READ READ 

{ADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 

{ SREGO, SREG1 , SREG2, $REG2, TESTNO, SERRPC, 

{0,0,0,2,0,0 



{SRO EFFECTED BY WRITE TO PSW 
{READ TESTNO ERRORPC 
{SREGO, TESTNO, SERRPC, 
{ , , 



;SR1 DID NOT READ ALL ZEROS 
{READ TESTNO ERRORPC 
{SREGO, TESTNO, SERRPC, 
{0,0,0 



{DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR 

{REGISTER WROTE READ READ 

{ADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 

; SREGO, $REG1,$REG2,$REG2, TESTNO, SERRPC, 

{0,0,0,2,0,0 



{DUAL ADDRESSING BETWEEN PAR-PDR ' S 

{PAR-PDR PAR-PDR 

{CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC 

{ SREGO, $REG1,$REG5.$REG2, TESTNO, SERRPC, 

{0,0,0,0,0,0 



;PHYS. ADDR. FORMED READ WRONG IN MAINT. MODE 

{PHYSICAL VIRTUAL 

{ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC 

{PBAL0,VIRT1,$REG4. TESTNO. SERRPC. 

{3,0,0,0,0 
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09:33 PAGE 23 



SEO 0022 



1009 






1010 


001602 


042626 


1011 


001604 


046S50 


1012 






1013 


001606 


051406 


1014 


001610 


052173 


1015 






1016 






1017 


001612 


042700 


1016 


001614 


046776 


1019 






1020 


001616 


051430 


1021 


001620 


052203 


1022 






1023 






1024 


001622 


042735 


1025 


001624 


047056 


1026 






1027 


001626 


051442 


1028 


001630 


052207 


1029 






1030 






1031 


001632 


042774 


1032 


001634 


047155 


1033 


001636 


051456 


1034 


001640 


052214 


1035 






1036 






1037 


001642 


043040 


1038 


001644 


047205 


1039 


001646 


051466 


1040 


001650 


052217 


1041 






1042 






1043 


001652 


043100 


1044 


001654 


047205 


1045 


001656 


051466 


1046 


001660 


052217 


1047 






104B 






1049 


001662 


043145 


1050 


001664 


047245 


1051 


001666 


051500 


1052 


001670 


052217 


1053 






1054 






1055 


001672 


043215 


1056 


001674 


047245 


1057 


001676 


051500 


1058 


001700 


052217 


1059 






1060 






1061 


001702 


043264 


1062 


001704 


047305 


1063 


001706 


051512 


1064 


001710 


052223 



;*ITEM 


20 




EM20 




DH20 




DT20 




DF20 


;*ITEM 


21 




EM21 




DH21 




DT21 




DF21 


;*ITEH 


22 




EM22 




DH22 




DT22 




DF22 


{•ITEM 


23 




EM23 




DM23 




DT23 




DF23 


;*ITEM 


24 




EM24 




DH24 




DT24 




DF24 


;«ITEM 


25 




EM25 




DH24 




DT24 




DF24 


;*ITEM 


26 




EM26 




DM26 




DT26 




DF24 


;»ITEM 


27 




EM27 




DM26 




DT26 




DF24 


;*ITEM 


30 




EM30 




DH30 




DT30 




DF30 



;PHYS. ADDR. FORMED READ WRONG IN RELOCATE MODE 
;PHYSICL PAR 4 PAR 5 

; ADDRESS VBA VBA PAR 4 PAR 5 PSW TESTNO 
;PBAL0,V1RT1 , VI RT2.$REG4,$REG5.$TMP0, TESTNO, $ERRPC,0 
;3, 0,0, 0,0, 0,0,0 



;W-BIT DID NOT GET SET IN PDR 
;PDR VIRTUAL 

; TESTED ADDRESS TESTNO ERRORPC 
;$REG5,$REG3, TESTNO, SERRPC, 
JO, 0,0,0 



;W-BIT SET IN MORE THAN ONE PDR 

;PDR IN PDR VIRTUAL 

; ERROR TESTED ADDRESS TESTNO ERRORPC 

;$REG0,$REG5,$REG3, TESTNO ,$ERRPC,0 

;0, 0,0, 0,0 



JW-BIT NOT CLEARED BY WRITING TO PDR 
;PDR TESTNO ERRORPC 
;$REG5, TESTNO, $ERRPC,0 
;0,0,0 



JWRITING SRO SET W-BIT IN KIPDR7 
;PDR WAS EXPECTD TESTNO ERRORPC 
;$REG2,$REG1 .TESTNO, SERRPC ,0 
*, , , , 



;W-BIT GOT SET DURING ODD ADDR. ABORT 
;PDR WAS EXPECTD TESTNO ERRORPC 
;$REG2,$REG1 .TESTNO, SERRPC, 
;0, 0,0,0 



; MEMORY MGMT. ACCESS ABORT DID NOT OCCUR 
;PDR 4 PSW TESTNO ERRORPC 
;$REG2,$TMP0, TESTNO, SERRPC, 
;0, 0,0,0 



;ACCESS ERROR DID NOT ABORT INSTRUCTION 
;PDR 4 PSW TESTNO ERRORPC 
;$REG2,$TMP0, TESTNO, SERRPC, 
JO, 0,0,0 



;SR0 DID NOT REPORT ACCESS ERROR CORRECTLY 
;SR0 WAS EXPECTD PDR 4 PSW TESTNO ERRORPC 
;WASSR0,$REG3,$REG2,$TMP0, TESTNO, SERRPC, 
;0, 0,0, 0,0,0 
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SEQ 0023 



1065 






1066 






1067 


001712 


043336 


1068 


001714 


047365 


1069 


001716 


051530 


1070 


001720 


052223 


1071 






1072 






1073 


001722 


043403 


1074 


001724 


047445 


1075 


001726 


051546 


1076 


001730 


052223 


1077 






1078 






1079 


001732 


043464 


1080 


001734 


047525 


1081 


001736 


051564 


1082 


001740 


052217 


1083 






1084 






1085 


001742 


043547 


1086 


001744 


047565 


1087 


001746 


051576 


1088 


001750 


052223 


1089 






1090 


001752 


043336 


1091 


001754 


047645 


1092 


001756 


051614 


1093 


001760 


052223 


1094 






1095 






1096 


001762 


043336 


1097 


001764 


047725 


1098 


001766 


051632 


1099 


001770 


052217 


1100 






1101 






1102 


001772 


043625 


1103 


001774 


047765 


1 104 






1105 


001776 


051644 


1 106 


002000 


052223 


1107 






1108 






1109 


002002 


043672 


1110 


002004 


050102 


1111 


002006 


051662 


1112 


002010 


052217 


1113 






1114 






1115 


002012 


043741 


1116 


002014 


047725 


1117 


002016 


051632 


111B 


002020 


052217 


1119 






1120 







*ITEM 


31 




EM31 




DH31 




DT31 




DF30 


*ITEM 


32 




EM32 




DH32 




DT32 




DF30 


♦ ITEM 


33 




EM33 




DH33 




DT33 




DF24 


;*ITEM 


34 




EM34 




DH34 




DT34 




DF30 


:*ITEM 


35 




EM31 




DH35 




DT35 




DF30 


:**fEM 


36 




EM31 




DH36 




DT36 




DF24 


;*ITEM 


37 




EM37 




DH37 




DT37 




DF30 


;*ITEM 


40 




EM40 




DH40 




DT40 




DF24 


;*ITEM 


41 




EM41 




DH36 




DT36 




DF24 


;*ITEM 


42 



;SR2 DID NOT LOCKUP CORRECT VIRTUAL ADDR. 
;SR2 WAS EXPECTD PDR 4 PSW TESTNO ERRORPC 
;WASSR2,$REG4,$REG2,$TMP0, TESTNO, SERRPC, 
;0, 0,0, 0,0,0 

;PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE 
;V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
;$REG0,$REG4,WASSR0,WASSR2, TESTNO, SERRPC, 
•,0,0,0,0,0,0 

;PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
;V.B.A. KIPDR4 TESTNO ERRORPC 
;$REG0,$REG4, TESTNO, SERRPC, 
; , , , 



;SR0 DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
-.V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
;$REG0,$REG4,WASSR0,$REG2, TESTNO, SERRPC, 
;0, 0,0, 0,0,0 

;SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
;V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC 
; SREGO , SREG4 , WASSR2 ,$REG3 .TESTNO , SERRPC , 
;0, 0,0, 0,0,0 



;SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
;5R2 WAS EXPECTD TESTNO ERRORPC 
;WASSR2,$REG1 , TESTNO, SERRPC ,0 
;0, 0,0,0 



;SR0 OR SR2 CHANGED BY A SECOND ABORT 

; FIRST ABORT SECOND ABORT 

;SR0 WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC 

;$TMP0,$TMP2,WASSR0,WASSR2, TESTNO, SERRPC, 

;0, 0,0, 0,0,0 



;SR0 OR SR2 WAS NOT "RESET" BY A RESET 
;SR0 WAS SR2 WAS TESTNO ERRORPC 
;WASSR0,WASSR2 .TESTNO, SERRPC. 
5 , , , 



;SR2 NOT TRACKING CORRECTLY 
;SR2 WAS EXPECTD TESTNO ERROPC 
;WASSR2,$REG1 , TESTNO, SERRPC, 
;0, 0,0,0 
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09:33 PAGE 25 



1121 


002022 


043774 


1 122 


002024 


050142 


1123 


002026 


051674 


1 124 


002030 


052217 


1125 






1 126 






1127 


002032 


044033 


1128 


002034 


047155 


1129 


002036 


051456 


1130 


002040 


052214 


1 131 






1132 






1133 


002042 


044100 


1 134 


002044 


050202 


1 135 






1136 


002046 


051706 


1 137 


002050 


052223 


1138 






1 139 






1 140 


002052 


044146 


1141 


002054 


050314 


1 142 






1 143 






1 144 






1 145 






1146 


002056 


051724 


1147 


002060 


052223 


1148 






1 149 






1 150 


002062 


044223 


1 151 


002064 


050511 


1152 






1153 


002066 


051742 


1154 


002070 


052231 


1 155 






1156 






1157 


002072 


044266 


1 158 


002074 


050511 


1159 






1160 


002076 


051742 


1161 


002100 


052231 


1162 






1 163 






1164 


002102 


044331 


1165 


002104 


050566 


1 166 


002106 


051754 


1167 


0021 10 


052235 


1 168 






1169 






1170 


002112 


044367 


1171 


002114 


050606 


1 172 


0021 16 


051762 


1173 


002120 


052?37 


1174 






1175 






1176 


002122 


044445 



EM42 
DH42 
DT42 
DF24 

{♦ITEM 43 

EM43 
DH23 
DT23 
DF23 

{♦ITEM 44 

EM44 
DH44 

DT44 
DF30 

{♦ITEM 45 

EM45 
DH45 





DT45 




DF30 


♦ ITEM 


46 




EM46 




DH46 




DT46 




DF46 


♦ ITEM 


47 




EM47 




DH46 




DT46 




DF46 


♦ ITEM 


50 




EM50 




DH50 




DT50 




DF50 


♦ ITEM 


51 




EM51 




DH51 




DT51 




DF51 


♦ ITEM 


52 




EM52 



;DID NOT TRAP THRU KERNEL SPACE 
;PSW WAS R6 WAS TESTNO ERRORPC 
;$REG1 ,$REG2,TESTNO,$ERRPC,0 
;o, 0,0,0 



;KT ERROR SERVICED ON ODD ADDR. 
;PDR TESTNO ERRORPC 
;$REG5, TESTNO, $ERRPC,0 

;o,o,o 



;SR0 OR SR2 CHANGED BY ODD ADDR. ERROR 

{EXPECTED RECEIVED 

;SR0 SR2 SRO WAS SR2 WAS TESTNO ERRORPC 

;$REG0.$REG1,WASSR0,WASSR2, TESTNO, SERRPC.O 

;0, 0,0, 0,0,0 



; ERROR DURING "DOUBLE ERROR" (KT & ODD ADDR.) 

{EXPECTED: 

;PSW PC SRO SR2 

;170017 (3$+4) 020147 (3$) 

{RECEIVED 

;PSW PC SRO SR2 TESTNO ERRORPC 

;$REG1,$REG3,WASSR0,WASSR2, TESTNO, SERRPC.O 

;0, 0,0, 0,0.0 



;MFPI INSTRUCTION PUSHED WRONG DATA 

;DATA DATA 

{EXPECTD RECEIVD TESTNO ERRORPC 

;$REG0,$REG1 .TESTNO, SERRPC.O 

;0. 0,0,0 



•,MTPI INSTRUCTION LOADED WRONG DATA 

{DATA DATA 

{EXPECTD RECEIVD TESTNO ERRORPC 

;$REG0,$REG1 .TESTNO, SERRPC.O 

;0, 0,0,0 



{STACK NOT PUSHED BY MFPI-MTPI 
; TESTNO ERRORPC 
{TESTNO, SERRPC.O 

;o,o 



{KERNEL PAGE ACCESSED INSTEAD OF USER: 
;SR0 WAS SR2 WAS TESTNO ERRORPC 
;WASSR0,WASSR2, TESTNO, SERRPC.O 
;0, 0,0,0 



; WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE 
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DH52 

DT52 
DF52 
{♦ITEM 53 

EM53 
DH46 

DT46 
DF46 

{♦ITEM 54 

EM54 
DH50 
DT50 
DF50 

{♦ITEM 55 

EM55 
DH11 

DT11 
DF11 

{♦ITEM 56 

EM56 
DH50 
DT50 
DF50 

{♦ITEM 57 

EM57 
DH57 
DT57 
DF57 

{♦ITEM 60 

EM60 
DH60 
DT60 
DF60 

{♦ITEM 61 

EM61 
DH50 
DT50 
DF50 

{♦ITEM 62 

EM62 
DH3 
DT3 
DF3 

{♦ITEM 83 

EM63 



SEO 0025 



1177 


002124 


050346 


1178 






11 79 


002126 


051774 


1180 


002130 


052243 


1181 






1182 


002132 


044523 


1 183 


002134 


050511 


1184 






1185 


002136 


051742 


1186 


002140 


052231 


1187 






11 ee 






1189 


002142 


044566 


1 190 


002144 


050566 


1191 


002146 


051754 


1 192 


002150 


052235 


1193 






1 194 






1 195 


002152 


044624 


1 iy6 


002154 


046150 


1197 






1198 


002156 


051312 


1199 


002160 


052142 


1200 






1201 






1202 


002162 


044662 


1203 


002164 


050566 


1204 


002166 


051754 


1205 


002170 


052235 


1206 






1207 






1208 


002172 


044716 


1209 


002174 


050764 


1210 


002176 


052U16 


1211 


002200 


052253 


1212 






1213 






1214 


002202 


044773 


1215 


002204 


051024 


1216 


002206 


O5?030 


1217 


002210 


052257 


1218 






1219 






1220 


002212 


045036 


1221 


002214 


050566 


1222 


002216 


051754 


1223 


002220 


052235 


1224 






1225 






1226 


002222 


045114 


1227 


002224 


045760 


1228 


002226 


051254 


1229 


002230 


052126 


1230 






1231 






1232 


002232 


045165 



{PHYSICL PAR 4 

{ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW TESTNO 

{PBALO.V I RT1,$REG4,WASSR0,WA5SR2,$TMP0, TESTNO. SERRPC.O 

{3,0,0,0,0,0,0,0 

{MFPD INSTRUCTION PUSHED WRONG DATA 

{DATA DATA 

{EXPECTD RECEIVD TESTNO ERRORPC 

;$REGO,$REG1 , TESTNO, SERRPC.O 

{0,0.0,0 



{STACK NOT PUSHED BY MFPD-MTPD 
{TESTNO ERRORPC 
{TESTNO, SERRPC.O 
{0,0 



{PAR OR PDR WAS CHANGED BY A RESET 

JREGISTR READ READ-( BINARY ) 

{ADDRESS (OCTAL) 54321 09B76543210 TESTNO ERRORPC 

;$REG0,$REG1 .SREG1 .TESTNO, SERRPC.O 

{0,0,2,0,0 



{ILLEGAL MODE 01 NOT ABORTED 
{TESTNO ERRORPC 
{TESTNO, SERRPC.O 
{0,0 



{SRO DID NOT REPORT ILLEGAL MODE 01 CORRECTLY 
{SRO WAS EXPECTD TESTNO ERRORPC 
{WASSR0,$REG1 , TESTNO, SERRPC ,0 
{0,0,0,0 



PSW CHANGED BY AN RTI IN USER MODE 
PSW WAS EXPECTD TESTNO ERRORPC 
SREG1 ,$REG2, TESTNO, SERRPC.O 
0,0,0,0 



{MAINT MODE (SR0<8>) NOT DISABLED BY A RESET 
{TESTNO ERRORPC 
{TESTNO, VERRPC.O 
{0,0 



{DATA INCORRECT AFTER A MAINT. MODE WRITE 
{WROTE READ TESTNO ERRORPC 
{$REG0,$REG1 .TESTNO, SERRPC.O 
{0,0,0,0 



{SOURCE RELOCATED IN MAINT. MODE 
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DH2 
DT2 
DF2 

;*ITEM 64 

EM31 
DH36 
DT64 
DF24 

;*ITEM 65 

EM64 
DH61 
DT65 
DF61 

;*ITEM 66 

EM65 
DH61 
DT65 
DF61 



EM66 
DH61 
DT65 
DF61 



SEO 0026 



1233 


002234 


045670 


1234 


002236 


051234 


1235 


002240 


052117 


1236 






1237 






1238 


002242 


043336 


1239 


002244 


047725 


1240 


002246 


052042 


1241 


002250 


052217 


1242 






1243 






1244 


002252 


045225 


1245 


002254 


051064 


1246 


002256 


052154 


1247 


002260 


052263 


1248 






1249 






1250 


002262 


045265 


1251 


002264 


051064 


1252 


002266 


052054 


1253 


002270 


052263 


1254 






1255 






1256 






1257 


002272 


045351 


1258 


002274 


051064 


1259 


002276 


052054 


1260 


002300 


052263 


1261 






1262 






1263 






1264 


002302 


045441 


1265 


002304 


051064 


1266 


002306 


052054 


1267 


002310 


052263 


1268 






1269 






1270 


002312 


045506 


1271 


002314 


051122 


1272 


002316 


052066 


1273 


002320 


052263 


1274 






1275 






1276 


002322 


045562 


1277 


002324 


051161 


1278 


002326 


052100 


1279 


002330 


052263 


1280 







;*ITEM 70 

EM67 
DH61 
DT65 
DF61 

;*ITEM 71 

EM70 
0H62 
DT66 
DF61 

J*ITEH 72 

EM71 
DH63 
DT67 
DF61 



SOLD PC OLD PSW R6 WAS 5R0 SR2 TESTNO ERRORPC 
;TRAPPC,TRAPP5,WASR6,WASSR0,WASSR2,TESTNO,$ERRPC,0 
;0, 0,0, 0,0, 0,0 



;SR2 DIDNOT LOCKUP CORRECT VIRTUAL ADDR. 
;SR2 WAS EXPECTD TESTNO ERRORPC 
;WASSR2,$REG4, TESTNO, SERRPC, 
;0, 0,0,0 



;+NON RESIDENT ABORT DID NOT OCCUR 
5+SRO SR2 TESTNO ERRORPC 
; +WASSR0 , WASSR2 , TESTNO , SERRORPC 
; +0,0, 0,0 



S+ERROR FLAG FOR KR ABORT DID NOT SET 
5+SRO SR2 TESTNO ERRORPC 

5 +WASSR0.WASSR2, TESTNO, SERRPC 
5+0,0,0,0 



5+SR2 DID NOT FREEZE THE VIRTUAL ADRS OF ABORT 
5+SRO SR2 TESTNO ERRORPC 
5 +WASSR0 , WASSR2 , TESTNO. SERRPC 
5+0,0.0,0 



5+2ND NON RESIDENT ABORT DID NOT OCCUR 
5+SRO SR2 TESTNO ERRORPC 
5 +WASSR0,WASSR2, TESTNO, SERRPC 
5+0,0,0,0 



5+2ND NR ABORT CHANGED SR2 

5+SR2 EXPT SR2 RECD TESTNO ERRORPC 

5 +CORSR0,WASSR2, TESTNO. SERRPC 

5+0,0,0,0 



5+SRO WAS NOT CLEARED BY INIT 
5+SRO EXPT SRO RECD TESTNO ERRORPC 
5 +CORSRO , WASSRO , TESTNO, ERRORPC 
5+0,0,0,0 
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28 

**** 



SEO 0027 



1281 










1282 










1283 










1284 










1285 










1286 










1287 










1288 










1289 










1290 










1291 










1292 


002332 


005227 






1293 


002334 


177777 






1294 


002336 


001401 






1295 


002340 


000000 






1296 










1297 










1298 










1299 










1300 


002342 


012637 


001356 




1301 


002346 


012637 


001360 




1302 


002352 


010637 


001354 




1303 


002356 


104001 






1304 


002360 


012737 


177777 


002334 


1305 


002366 


013746 


001360 




1306 


002372 


013746 


001356 




1307 


002376 


000006 






1308 










1309 










1310 










1311 










1312 










1313 










1314 










1315 










1316 










1317 










1318 










1319 


002400 


005227 






1320 


002402 


177777 






1321 


002404 


001401 






1322 


002406 


000000 






1323 










1324 










1325 










1326 










1327 


002410 


012637 


001356 




1328 


002414 


012637 


001360 




1329 


002420 


010637 


001354 




1330 


002424 


013737 


177572 


001366 


1331 


002432 


013737 


177576 


001370 


1332 


002440 


042737 


160000 


177572 


1333 


002446 


104^02 






1334 


002450 


012737 


177777 


002402 


1335 


002456 


013746 


001360 




1336 


002462 


013746 


001356 





.SBTTL ***** TRAP HANDLING ROUTINES ***** 



.SBTTL CPU TRAP HANDLER ROUTINE 

..**************•**************** 



THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
"ERRVEC" (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 
EXECUTED. 



************************************** 



********** 



timerr: 


INC 


(PC) 


timflg: 


.WORD 


-1 




BEQ 


1$ 




HALT 





;MAKE FLAG ZERO IF FIRST TIME THRU 

5NEGATIVE ONE FOR "HAVE ENTERED" FLAG 

5BRANCH IF FIRST TIME IN 

JSTOP! - I'VE ENTERED THIS ROUTINE 

;A SECOND TIME BEFORE I FINISHED 

5REPORTLNG THE FIRST ERROR. THE 

; SECOND ENTRY ADDRESS SHOULD BE ON 

;THE KERNEL STACK. 

;SAVE PC+2 AT TIME OF ABORT 

;SAVE PS AT TIME OF ABORT 

;SAVE STACK POINTER VALUE 

5UNEXPECTED TRAP OR ABORT TO LOC. 4 

;MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

; PUT PC & PS OF TRAP ON STACK 

; RETURN FROM INTERRUPT OR ABORT 



.SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 

J.*************************************************************** 

• * 

;* THIS SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMORY MANAGEMENT 

;* TRAPS AND ABORTS THRU "MMVEC" (LOC. 250). IF THIS SUBROUTINE IS 

5* ENTERED BY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 

5* HALT IS EXECUTED. 



MOV 


(KSP)+,TRAPPC 


MOV 


(KSP)+,TRAPPS 


MOV 


KSP.WASR6 


ERROR 


1 


MOV 


#-1, TIMFLG 


MOV 


TRAPPS.-(KSP) 


MOV 


TRAPPC.-(KSP) 


RTT 





• J**************************** 
mgmerr: INC (PC)+ 
mgmflg: .WORD -1 

BEQ 1$ 

HALT 



MOV 


(KSP)+,TRAPPC 


MOV 


(KSP)+,TRAPPS 


MOV 


KSP,WASR6 


MOV 


SRO, WASSRO 


MOV 


SR2.WASSR2 


BIC 


#160000, SRO 


ERROR 


2 


MOV 


#-1 .MGMFLG 


MOV 


TRAPPS.-(KSP) 


MOV 


TRAPPC.-(KSP) 



MAKE FLAG ZERO IF FIRST TIME THRU 

NEGATIVE ONE FOR "HAVE ENTERED" FLAG 

BRANCH IF FIRST TIME IN 

STOP! - I'VE ENTERED THIS ROUTINE 

A SECOND TIME BEFORE I FINISHED 

REPORTING THE FIRST ERROR. THE 

SECOND ENTRY ADDRESS SHOULD BE ON 

THE KERNEL STACK. 

SAVE PC+2 AT TIME OF ABORT 

SAVE PS AT TIME OF ABORT 

SAVE STACK POINTER VALUE 

SAVE CONTENTS OF KT STATUS REG. 

SAVE CONTENTS OF KT STATUS REG. 2 

CLEAR ERROR BITS IN STATUS REG 

UNEXPECTED TRAP OR ABORT TO LOC. 250 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

PUT PC & PS OF TRAP ON STACK 
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SEQ 0028 



1337 
1338 



002466 000006 



{RETURN FROM INTERRUPT OR ABORT. 



.) 
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SEQ 0029 



1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
135B 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
136B 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 



020000 
020004 
020006 
020012 
020014 

020020 
020026 
020034 
020042 
020050 
020056 
020064 
020072 
020100 
020106 
020112 
020116 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
01273/ 
012737 
013737 
005037 
005037 
112737 



020124 
020132 
020140 
020146 
020154 
020156 
020162 
020164 
020172 
020174 
020200 
020206 
020212 
020220 



020226 
020232 
020240 
020246 
020254 
020262 

020264 
020266 
020272 
020274 
020302 



012737 
012737 
012737 
012737 
005046 
012746 
000006 
012737 
000402 
062706 
012737 
005037 
012737 
012737 



001100 

001140 

001100 

035040 
000340 
035320 
000340 
041302 
000340 
041370 
000340 
034606 
001212 
001214 
000001 



035024 
000340 
000002 
020174 

020164 

000006 

000010 
000012 
035032 
020212 
020220 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 



000004 
020266 
177570 
177570 
177777 



000176 
000174 



.SBTTL 

.SBTTL ***** 
.SBTTL ***** 
.*20000 



STARTING POINT OF TEST ***** 
STARTING ADDRESS OF 200 ***** 



START: 

.SBTTL INITIALIZE THE COMMON TAGS 

{{CLEAR THE COMMON TAGS (SCMTAG) AREA 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
034600 



MOV 


#$CMTAG,R6 


CLR 


(R6) + 


CMP 


#SWR,R6 ;;DONE? 


BNE 


.-6 


MOV 


#STACK,SP 



{ {INITIALIZE A FEW VECTORS 



;; FIRST LOCATION TO BE CLEARED 
{{CLEAR MEMORY LOCATION 

{{LOOP BACK IF NO 

?; SETUP THE STACK POINTER 



#$SCOPE,##IOTVEC 
#340,<S>#IOTVEC+2 
#$ERR0R,#»#EMTVEC 
#340,@#EMTVEC+2 



;;I0T VECTOR FOR SCOPE ROUTINE 
;; LEVEL 7 

;;EMT VECTOR FOR ERROR ROUTINE 
; ; LEVEL 7 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

MOVB 

{INITIALIZE THE "T-BIT" TRAP VECTOR. THEN LOAD LOCATION 
{THE "END-OF-PASS" ($EOP) ROUTINE, WITH A "RTI" OR "RTT 



#$TRAP,S»#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 

#340, 00TRAPVEC+2; LEVEL 7 

#$PWRDN,»#PWRVEC {{POWER FAILURE VECTOR 

#34O,@0PWRVEC+2 ;; LEVEL 7 

;; SETUP END-OF-PROGRAM COUNTER 
;; INITIALIZE NUMBER OF ITERATIONS 
;; CLEAR THE ESCAPE ON ERROR ADDRESS 
; {ALLOW PNE ERROR PER TEST 

$RTRN". IN 



$ENDCT,$EOPCT 
'TIMES 
SESCAPE 
#1 f $ERMAX 



000014 
000016 
035024 
000010 



035024 64$: 



65$: 
66$: 



001106 
001110 



000004 
001140 
001142 
160656 



001140 
001142 



MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

RTT 

MOV 

BR 

ADD 

MOV 

CLR 

MOV 

MOV 



#$RTRN,e#TBITVEC ;;SET "T n BIT VECTOR TO $RTRN 
#340,P#TBlTVEC+2 ;; LEVEL 7 



#RTI,$RTRN 
#65$,@#RESVEC 
"(SP) 
#64$, -(SP) 

#RTT,$RTRN 

66$ 

#10, SP 



; ;SET $RTRN TO A RTI 

; ;TRY TO DO A RTT 

; ;DUMMY PS 

; {AND PC 

{{TRY THE RTT 

;;RTT IS LEGAL—SET $RTRN TO A RTT 



{{RTT ILLEGAL— CLEAN OFF THE STACK 
#RESVEC+2.0#RESVEC { {RESTORE TRAP CATCHER 
$TBIT { {CLEAR "T" BTT SWITCH 

#.,$LPADR {{INITIALIZE THE LOOP ADDRESS FOR SCOPE 
#.,$LPERR ;; SETUP THE ERROR LOOP ADDRESS 
SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A "-1 H , SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV 3#ERRVEC,-(SP) {{SAVE ERROR VECTOR 
MOV #67$,®>#ERRVEC {{SET UP ERROR VECTOR 

MOV #DSWR,SWR {{SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP, DISPLAY {{AND A HARDWARE DISPLAY REGISTER 
CMP #-1,fSWR {{TRY TO REFERENCE HARDWARE SWR 
BNE 69$ {{ BRANCH IF NO TIMEOUT TRAP OCCURRED 

{{AND THE HARDWARE SWR IS NOT - -1 
68$ {{BRANCH IF NO TIMEOUT 

#68$, (SP) {{SET UP FOR TRAP RETURN 



BR 

MOV 

RTI 

MOV 

MOV 



#SWREG,SWR 
#DISPREG,DISPLAY 



; POINT TO SOFTWARE SWR 
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SEQ 0030 



1395 
1395 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 



020310 012637 000004 



001234 
000200 



020314 
020320 
020326 
020330 
020336 



005037 
132737 
001403 
012737 



001247 



001250 001140 



MOV 

CLR 
BITB 
BEQ 
MOV 



(SP)+,§>#ERRVEC ;;RESTORE ERROR VECTOR 



SPASS 

*APTSIZE,$ENVM 

70$ 

#$SWREG,SWR 
70$: 

.SBTTL TYPE PROGRAM NAME 
;;TYPE THE NAME OF THE PROGRAM 



;; CLEAR PASS COUNT 
{{TEST USER SIZE UNDER APT 
;;YES,USE NON-APT SWITCH 
;;NO.USE APT SWITCH REGISTER 



020336 
020342 
020344 
020352 
020354 

020360 
020364 
020366 
020374 
020376 
020404 
020406 
020410 
020412 
020420 
020420 

020466 

020466 
020466 
020472 
020500 
020506 
020514 
020522 
020526 
020532 
020536 
020544 



005227 177777 
001051 



022737 
001445 
104401 



034760 000042 



020422 



INC 
BNE 
CMP 
BEQ 
TYPE 



005737 000042 

001012 

123727 

001406 

023727 001140 

001005 

104407 

000403 

112737 000001 

000422 



001246 000001 
000176 



001134 



FIRST PASS 
;FIRST TIME? 
; BRANCH IF NO 
{ACT-11? 
{BRANCH IF YES 
{TYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

;ARE WE RUNNING UNDER XXDP/ACT? 

; BRANCH IF YES 

;ARE WE RUNNING UNDER APT? 

; BRANCH IF YES 

{SOFTWARE' SWITCH REG SELECTED? 

; BRANCH IF NO 

;GET SOFT-SWR SETTINGS 



012706 
012737 
012737 
012737 
012737 
012700 
010037 
010037 
012737 
005037 



73$: 
74$: 



;;72$: 

71$: 



TST 

BNE 

CMPB 

BEQ 

CMP 

BNE 

GTSWR 

BR 

MOVB 



#-1 

71$ 

#$ENDAD,##42 

71$ 

,72$ 



@#42 

73$ 

$ENV,#1 

73$ 

SWR,#SWREG 

74$ 



001100 
002332 
000340 
002400 
000340 
177777 
002334 
002402 
000340 
177572 



00000^ 
000006 
000250 
000252 



BR 
.ASCIZ 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 



74$ 

#1 ,$AUTOB 

71$ 
<CRLF><¥CFKTHBO 



#STACK,KSP 

#TIMERR,ERRVEC 

#340,ERRVEC+2 

#MGMERR,MMVEC 

#340,MMVEC+2 

#-1 r R0 

R0,TIMFLG 

RO.MGMFLG 

#340,TBITPS 

SRO 



;;SET AUTO-MODE INDICATOR 

; ;GET OVER THE ASCIZ 

11/34 MEMORY MGMT . DIAG. #<CRLF> 



INITIALIZE THE STACK POINTER 

; LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 

;SET NEW PS TO PRIORITY LEVEL 7-KERNEL 

;LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 

{SET NEW PS TO PRIORITY LEVEL 7-KERNEL 

;PUT -1 INTO RO TO INITIALIZE FLAGS 

; INITIALIZE CPU ERROR FLAG 

INITIALIZE MEMORY MANAGEMENT ERROR FLAG 

INITIALIZE LOG THAT HOLDS T-BIT PSW 

;BE SURE MEM. MGMT IS OFF TO START WITH 
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SEQ 0031 



1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 . 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 



******** 



020550 
020552 
020560 
020562 
020564 
020566 
020570 
020574 
020576 
020600 



020602 
020606 
020612 
020614 



020622 
020624 
020632 
020634 
020640 
020644 
020650 
020654 
020656 
020660 
020664 



020666 
020672 
020674 
020702 



{•TEST 1 



***************** 
PSW PRIORITY BIT TEST 



********************* 



THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> "PRIORITY BITS" 
TO SEE THAT SOME OF THE BASIC "DATA PATH" LOGIC IS WORKING. 



.*************** 



000004 
012737 
005000 
005001 
106400 
106701 
042701 
020001 
001401 
104003 



062700 
022700 
001363 
012737 



000u04 
012737 
005000 
005037 
050037 
013701 
042701 
020001 
001403 
005037 
104004 



020562 001110 1$: 
2$: 



000040 
000400 



020552 001110 



3$: 



SCOPE 

MOV 

CLR 

CLR 

MTPS 

MFPS 

BIC 

CMP 

BEQ 

ERROR 



ADD 
CMP 
BNE 
MOV 



#2$,$LPERR 

RO 

R1 

RO 

R1 

#177437, R1 

R0,R1 

3$ 

3 



#40, RO 
#400, RO 
2$ 
#1$,$LPERR 



*************************** 

;SET LOOP ON ERROR POINTER TO 2$ 

{INITIALIZE RO WITH PRIORITY=0 DATA 

{PREPARE R1 TO ACCEPT DATA READ 

{WRITE PRIORITY BITS IN THE PSW 

{READ BACK THE LOW BYTE OF PSW 

{MASK OFF EVERYTHING EXCEPT PRIORITY BITS 

{WAS CORRECT PRIORITY SET IN THE PSW? 

{BRANCH IF YES 

{PRIORITY BITS SET WRONG IN PSW 

{FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;"BR 2$" = 000770 

{CHANGE DATA TO NEXT PRIORITY 

{HAVE PRIORITIES 0-7 ALL BEEN CHECKED? 

{BRANCH IF NO 

{RESET LOOP ON ERROR POINTER TO 1$ 



**** 



***** 



t******************** 



********************************** 

;*TEST 2 PSW MODE BIT TEST 

{* THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15M2> 

;* TO FURTHER CHECK THE BASIC CPU DATA PATHS 



************************ 



020634 001110 

177776 
177776 
177776 
007777 



062700 
001360 
012737 
005037 



020624 
177776 



TST 2: 


SCOPE 




1$: 


MOV 


#2$,$LPERR 




CLR 


RO 


2$: 


CLR 


PSW 




BIS 


RO.PSW 




MOV 


PSW,R1 




BIC 


#007777, R1 




CMP 


RO.R1 




BEQ 


3$ 




CLR 


PSW 




ERROR 


4 


3$: 


ADD 


#10000, RO 




BNE 


2$ 




MOV 


#1$,$LPERR 




CLR 


PSW 



********************************* 

{SET LOOP ON ERROR POINTER TO 2$ 

{INITIALIZE RO WITH MODE BITS * 0000 

{INITIALIZE PSW 

{BIT SET THE PSW MODE BITS WITH RO 

{READ BACK THE CONTENTS OF THE PSW 

{MASK OFF EVERYTHING EXCEPT THE MODE BITS 

{WERE THE MODE BITS SET CORRECTLY? 

{BRANCH IF YES 

{CLEAR PSW FOR ERROR REPORT 

{MODE BITS SET WRONG IN PSW 

{FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

{"BR 2$" ■ 000763 

{CHANGE MODE BIT DATA 

{BRANCH IF STILL MORE COMBINATIONS 

{RESET LOOP ON ERROR POINTER TO 1$ 

{RESET PSW BEFORE LEAVING 



.**#**************************************** 
®TEST 3 BYTE ADDRESSING TEST FOR PSW 



**************** 



THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 
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SEQ 0032 



1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

151 1 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 



AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY. 
THIS CHECKS THE PSW PORTION OF THE ADDRESS DETECTION LOGIC. 



••***************sj 



<******** 



****************** 



020706 
020710 
020716 
020722 
020726 
020732 
020736 
020742 
020744 
020746 
020750 
020754 



020756 
020764 
020770 
020774 
021000 
021004 
021010 
021012 
021014 
021020 



000004 
012737 
005037 
012700 
110037 
013701 
042701 
000300 
020001 
001 :03 
005037 
104005 



012737 
005037 
012700 
110037 
013701 
042701 
020001 
001403 
005037 
104005 



020716 
177776 
000360 
177777 
177776 
007437 



020764 
177776 
000340 
177776 
177776 
007437 



TST3: 

1$: 

2$: 



3$: 

4$: 



SCOPE 

MOV 

CLR 

MOV 

MOVB 

MOV 

BIC 

SWAB 

CMP 

BEQ 

CLR 

ERROR 



MOV 

CLR 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

CLR 

ERROR 



021022 012737 020710 001110 5$: 



#2$,$LPERR 

PSW 

#360, RO 

RO.PSW+1 

PSW.R1 

#0 07437, R1 

RO 

R0.R1 

3$ 

PSW 

5 



#4$,$LPERR 

PSW 

#340, RO 

RO,PSW 

?SW,R1 

#007437, R1 

R0.R1 

5$ 

PSW 

5 



#1$,$LPERR 



;SET LOOP ON ERROR POINTER TO 2$ 

;CLEAR THE PSW 

;PUT THE HIGH BYTE DATA INTO RO 

{WRITE THE HIGH BYTE OF THE PSW 

'.READ BACK THE ENTIRE PSW 

;MASK OFF THE T J CC BITS 

;GET DATA WRITTEN IN HIGH BYTE OF RO 

;WAS THE PSW WRITTEN TO CORRECTLY 

{BRANCH IF YES 

;CLEAR PSW FOR ERROR REPORT 

;LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 

;FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;»BR 2$" ■ 000760 

;SET LOOP ON ERROR POINTER TO 4$ 

;CLEAR THE PSW 

;PUT THE LOW BYTE DATA INTO RO 

{WRITE THE LOW BYTE OF THE PSW 

{READ BACK THE ENTIRE PSW 

;MASK OFF THE T&CC BITS 

;WAS PSW WRITTEN TO CORRECTLY 

{BRANCH IF YES 

{CLEAR PSW FOR ERROR REPORT 

;HIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSW 

;FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;"BR 2$" = 000736 

; RESET LOOP ON ERROR POINTER TO 1$ 



) 



;;*********************************************** 

{•TEST 4 TEST AND SETUP OF STACK POINTERS 



i*************** 



THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 

REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT OF 

EACH OTHER. KERNEL R6 IS SET TO 1100, USER R6 IS SET TO 700. THEN 

KERNEL R6 IS READ TO BE SURE ITS STILL 1100. 



********* 



***************** 



******** 



**************** 



021030 
021032 
021036 
021042 
021050 
021054 
021060 
021064 
021066 
021072 
021074 



000004 
005037 
012706 
012737 
012706 
005C37 
022706 
001404 
012700 
010601 
104006 



177776 
001100 
140000 
000700 
177776 
001100 

001100 



SCOPE 






CLR 


PSW 




MOV 


#KERSTK 


KSP 


MOV 


#140000 


PSW 


MOV 


#USESTK 


USP 


CLR 


PSW 




CMP 


#KERSTK 


KSP 


BEQ 


TST5 




MOV 


#KERSTK 


RO 


MOV 


KSP.R1 




ERROR 


6 





;G0 TO KERNEL MODE 

;SET KERNEL STACK POINTER TO 1100 

;G0 TO USER MODE 

;SET USER STACK POINTER TO 700 

;BACK TO KERNEL MODE 

JIS KERNEL R6 STILL 1100? 

;; BRANCH IF KERNEL R6 IS OKAY 

;SAVE DATA WRITTEN FOR ERROR REPORT 

;SAVE DATA READ AFTER USER R6 WAS WRITTEN 

; KERNEL R6 CHANGED BY WRITING USER R6 

{FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 
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SEQ 0033 



1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 



021100 
021106 
0211 14 
021120 
021124 
021132 
021136 
021142 

021144 
021150 
021 152 
021160 
021164 
021166 
021170 
021176 

021200 
021204 



021206 
021210 
021214 
021216 
021222 



J*************************************************************** 
• 

* THE NEXT FIVE (5) TESTS WILL TRY TO ADDRESS ALL OF THE 

* MEMORY MANAGEMENT REGISTERS (SRO , SR1 , SR2 .KERNEL & USER PAR/PDR'S). 

* EVERY TIME A REGISTER TIMES OUT ITS ADDRESS WILL BE REPORTED. 

* AT THE END OF EACH TEST A SUMMARY OF THE ADDRESSES THAT TIMED 

* OUT DURING THAT TEST IS GIVEN. THE RESULTS OF "AND-ING" AND "OR-ING* 

* THEIR ADDRESSES IS GIVEN TO SHOW WHICH ADDRESS LINES MAY BE 

* STUCK AT OR 1. THE PAR/PDR ADDRESS AND KT MUX'S ARE THE 

* THINGS BEING CHECKED. 
* 
J*************************************************************** 



.. *****************************«********,) 
{♦TEST 5 SR0,SR1,SR2 TIMEOUT TEST 



************************ 



THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS 
0,1, AND 2. STATUS REG. 1 IS NOT USED BUT SHOULD STILL 
RESPOND TO ITS UNIBUS ADDRESS. DATA WILL BE WRITTEN OR READ 
FROM THESE REGISTERS IN LATER TESTS, THIS TEST JUST CHECK 
FOR A RESPONSE. 



.*************** 



********** 



021076 000004 



012737 
012737 
012700 
012701 
012737 
005037 
005037 
005710 

062700 
077104 
012737 
005737 
001401 
104010 
012737 
000414 

062706 
104007 



010002 
OSCS? 
005102 
040237 
005237 



021142 
021200 
177572 
000003 
177777 
001376 
001400 



021100 
001400 



002332 
000004 



001374 
001400 



001110 
000004 



TST5: 
1$: 



001110 
000004 4$: 

5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
TST 

ADD 

SOB 

MOV 

TST 

BEQ 

ERROR 

MOV 

BR 

ADD 
ERROR 



MOV 
BIS 
COM 
BIC 
INC 



#2$,$LPERR 

#5$,@#4 

#SR0,R0 

#3,R1 

#-1,ANDADR 

ORADR 

TONUM 

(RO) 

#2,R0 

R1,2$ 

#1$,$LPERR 

TONUM 

4$ 

10 

#TIMERR,$#4 

TST6 

#4, KSP 
7 



R0.R2 
R2, ORADR 
R2 

R2.ANDADR 
TONUM 



SET LOOP ON ERROR POINTER TO 2$ 

SET TIMEOUT VECTOR TO 5$ 

LOAD RO WITH ADDRESS OF FIRST REG. 

LOAD R1 WITH THE LOOP COUNT 

INITIALIZE "AND" OF ADDRS. LOC. 

INITIALIZE "OR" OF ADDRS. LOC. 

INITIALIZE "TIMEOUTS" COUNTER 

TRY ADDRESSING A STATUS REGISTER 

IF IT TIMES OUT GO TO 5$ 

PUT NEXT ADDRESS IN RO 

LOOP BACK TO 2$ UNTIL ALL TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

DID ANY OF THE STATUS REG.S TIMEOUT? 

BRANCH IF NO 

SUMMARY OF STATUS REG. TIMEOUTS 

RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

;G0 TO NEXT TEST 

CLEAN UP THE STACK 

ONE OF THE STATUS REGS. TIMED OUT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" ■ 000756 

LOAD THE ADDRESS THAT TIMED OUT INTO R2 

"OR" IT WITH OTHER ADDRS. THAT TIMED OUT 

"AND" IT WITH OTHER ADDRS. THAT TIMED OUT 

INCREMENT THE TIMEOUT COUNTER 
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SEO 0034 



1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 



021226 000746 



021230 000004 



021232 
021240 
021246 
021252 
021256 
021264 
021270 
021274 

021276 
021302 
021304 
021312 
021316 
021320 
021322 
021330 

021332 
021336 



021340 
021342 
021346 
021350 
021354 
021360 



012737 
012737 
012700 
012701 
012737 
005037 
005037 
00571C 

062700 
077104 
012737 
005737 
001401 
104010 
012737 
000414 

062706 
104007 



010002 
050237 
005102 
040237 
005237 
000746 



021362 000004 

021364 012737 021426 

021372 012737 021464 

021400 012700 



3$ 



; BRANCH BACK TO TEST THE NEXT ADDR. 



> * * * * * * * * * * * 
>TEST 6 



*************************** 

KERNEL PAR'S TIMEOUT TEST 



********#$ 



THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE ADDRESS 
REGISTERS (KIPAR0-KIPAR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 



****«******■***********«*«# 
TST6! SCOPE 



021274 
021332 
172340 
000010 
177777 
001376 
001400 



021232 
001400 



002332 
000004 



001374 
001400 



001110 1$: 
000004 



2$: 
3$: 



000004 4$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
TST 

ADD 

SOB 

MOV 

TST 

BEQ 

ERROR 

MOV 

BR 



#2$,$LPERR 

#5$,<P#4 

#KIPAR0,R0 

#10, R1 

#-1,ANDADR 

ORADR 

TONUM 

(RO) 

#2,R0 

R1,2$ 

#1$,$LPERR 

TONUM 

4$ 

10 

#TIMERR,S>#4 

TST7 



S$J 



ADD #4,KSP 
ERROR 7 



MOV 
BIS 
COM 
BIG 
INC 
BR 



R0.R2 

R2, ORADR 

R2 

R2.ANDADR 

TONUM 

3$ 



******************** 



;SET LOOP ON ERROR POINTER TO 2$ 

;SET TIMEOUT VECTOR TO 5$ 

{LOAD RO WITH ADDRESS OF FIRST REG. 

{LOAD R1 WITH LOOP COUNT (8) 

{INITIALIZE "AND" OF ADDR. LOC 

{INITIALIZE "OR" OF ADDR. LOC. 

; INITIALIZE "TIMEOUTS" COUNTER 

;TRY ADDRESSING A KIPAR 

;IF IT TIMES OUT, WILL GO TO 5$ 

;PUT NEXT KIPAR ADDRESS IN RO 

{LOOP BACK TO 2$ UNTIL ALL TESTED 

{RESET LOOP ON ERROR POINTER TO 1$ 

;DID ANY OF THE KIPARS TIME OUT? 

; BRANCH IF NO 

{SUMMARY OF KIPAR TIMEOUTS 

{RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

; ;GO TO NEXT TEST 

CLEAN UP THE STACK 

ONE OF THE KIPARS TIMED OUT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" » 000756 

LOAD THE ADDRESS THAT TIMED OUT INTO R2 

"OR" IT WITH OTHER ADDRS. THAT TIMED OUT 

"AND" IT WITH OTHER ADDRS. THAT TIMED OUT 

{INCREMENT THE TIMEOUT COUNTER 
{BRANCH BACK TO TEST THE NEXT KIPAR 



• *#*************************#*****************# 
*TEST 7 KERNEL PDR ' S TIMEOUT TEST 



******** 



THIS TEST ADDRESSES THE EIGHT (€] KERNEL PAGE DESCRIPTOR 
REGISTERS (KIPDR0-KIPDR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 



<**********«************»**«************ 
TST7: SCOPE 



********************** 



021404 012701 



172300 
000010 



001110 1$! MOV #2$ f $LPERR {SET LOOP ON ERROR POINTER TO 2$ 

000004 MOV #5$,©#4 {SET TIMEOUT VECTOR TO 5$ 

MOV #KIPDRO,RO {LOAD RO WITH ADDRESS OF FIRST REG. 

MOV #10, R1 {LOAD R1 WITH LOOP COUNT (8) 
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SEO 0035 



1G60 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1075 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 



021410 
021416 
021422 
021426 

021430 
021434 
021436 
021444 
021450 
021452 
021454 
021462 

021464 
021470 



021472 
021474 
02150G 
021502 
021506 
021512 



012737 
005037 
005037 
005710 

062700 
077104 
012737 
005737 
001401 
104010 
012737 
000414 

062706 
104007 



010002 
050^3/ 
005102 
040237 
005237 
000746 



177777 
001376 
001400 



021364 
001400 



021516 
021524 
021532 
021536 
021542 
021550 
021554 
021560 

021562 
021566 
021570 
021576 
021602 
021604 
021606 
021614 

021616 
021622 



001374 
001400 



021514 000004 



012737 
012737 
012700 
012701 
012737 
005037 
005037 
005710 

062700 
077104 
012737 
005737 
001401 
104010 
012737 
000414 

062706 
104007 



2$: 
3$: 



002332 000004 4$: 



5$: 



MOV 
CLR 
CLR 
TST 

ADD 

SOB 

MOV 

TST 

BEQ 

ERROR 

MOV 

BR 

ADD 
ERROR 



MOV 
BIS 
COM 
BIC 
INC 
BR 



#-1 ,ANDADR 

ORADR 

TONUM 

(RO) 

#2,R0 

R1,2$ 

#1$,$LPERR 

TONUM 

4$ 

10 

#TIMERR,i»#4 

TST10 

#4,KSP 
7 



R0.R2 

R2, ORADR 

R2 

R2.ANDADR 

"ONUM 

3$ 



INITIALIZE "AND" OF ADDR. LOC 

INITIALIZE "OR" OF ADDR. LOC. 

INITIALIZE "TIMEOUTS" COUNTER 

TRY ADDRESSING A KIPDR 

IF IT TIMES OUT, WILL GO TO 5$ 

PUT NEXT KIPDR ADDRESS IN RO 

LOOP BACK TO 2$ UNTIL ALL TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

DID ANY OF THE KIPDRS TIME OUT? 

BRANCH IF NO 

SUMMARY OF KIPDR TIMEOUTS 

RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

{GO TO NEXT TEST 

CLEAN UP THE STACK 

ONE OF THE KIPDRS TIMED OUT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000756 

LOAD THE ADDRESS THAT TIMED OUT INTO R2 

"OR" IT WITH OTHER ADDRS. THAT TIMED OUT 

"AND" IT WITH OTHER ADDRS. THAT TIMED OUT 

{INCREMENT THE TIMEOUT COUNTER 
{BRANCH BACK TO TEST THE NEXT KIPDR 



.*********** 
*TEST 10 



****************** 
USER PAR'S TIMEOUT TEST 



******* * ** * 



*************** 



THIS TEST ADDRESSES THE EIGHT (8) USER PAGE ADDRESS 
REGISTERS (UIPAR0-UIPAR7 ) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 



********** 
TST10: SCOPE 



******************** 



021560 
021616 
177640 
000010 
177777 
001376 
001400 



021516 
001400 



001110 
000004 



1$: 



2$: 
3$: 



002332 0000C 4$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
TST 

ADD 

SOB 

MOV 

TST 

BEQ 

ERROR 

MOV 

BR 

ADD 
ERROR 



#2$,$LPERR 

#5$,@#4 

#UIPAR0,R0 

#10, R1 

#-1 ,ANDADR 

ORADR 

TONUM 

(RO) 

#2,R0 

R1 ,2$ 

#1$,SLPERR 

TONUM 

4$ 

10 

#TIMERR,$#4 

TST11 

M.KSP 
7 



SET LOOP ON ERROR POINTER TO 2$ 

SET TIMEOUT VECTOR TO 5$ 

LOAD RO WITH ADDRESS OF FIRST REG. 

LOAD R1 WITH LOOP COUNT (8) 

INITIALIZE "AND" OF ADDR. LOC 

INITIALIZE "OR" OF ADDR. LOC. 

INITIALIZE "TIMEOUTS" COUNTER 

TRY ADDRESSING A UIPAR 

IF IT TIMES OUT, WILL GO TO 5$ 

PUT NEXT UIPAR ADDRESS IN RO 

LOOP BACK TO 2$ UNTIL ALL TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

DID ANY OF THE UIPARS TIME OUT? 

BRANCH IF NO 

SUMMARY OF UIPAR TIMEOUTS 

RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

{GO TO NEXT TEST 

{CLEAN UP THE STACK 

{ONE OF THE UIPARS TIMED OUT 
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SEO 0036 



1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1750 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 



021624 
021626 
021632 
021634 
021640 
021644 



010002 

050237 001376 

005102 

040237 001374 

005237 001400 

000746 



021646 000004 



02I650 
021656 
021664 
021670 
021674 
021702 
021706 
021712 

021714 
021720 
021722 
021730 
021734 
021736 
021740 
021746 

021750 
021754 



012737 
012737 
012700 
012701 
012737 
005037 
005037 
005710 

062700 
077104 
012737 
005737 
001401 
104010 
012737 
000414 

062706 
104007 



021712 
021750 
177600 
000010 
177777 
001376 
001400 



021756 
021760 
021764 
021766 
021772 
021776 



;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

;«BR 2$" ■ 000756 

;LOAD THE ADDRESS THAT TIMED OUT INTO R2 

;"OR" IT WITH OTHER ADDRS. THAT TIMED OUT 

;"AND" 1: WITH OTHER ADDRS. THAT TIMED OUT 

; INCREMENT THE TIMEOUT COUNTER 
{BRANCH BACK TO TEST THE NEXT UIPAR 

. *************************************************************** 
*TEST 11 USER PDR'S TIMEOUT TEST 

* THIS TEST ADDRESSES THE EIGHT (8) USER PAGE DESCRIPTOR 

* REGISTERS (UIPDR0-UIPDR7) AND CHECKS THAT SOMETHING 

* RESPONDS TO THEIR ADDRESSES. 



MOV 


k0,R2 


BIS 


R2.0RADR 


COM 


R2 


BIC 


R2.ANDADR 


INC 


TONUM 


BR 


3$ 



*********** 
TST11: SCOPE 



*$**********««***«******** 



K+************************ 



oomo 1$: 

000004 



001374 



2$: 
3$: 



021650 
001400 



002332 000004 4$: 



010002 
050237 
005102 
040237 
005237 
000746 



001374 
001400 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
TST 

ADD 

SOB 

MOV 

TST 

BEQ 

ERROR 

MOV 

BR 

ADD 
ERROR 



MOV 
BIS 
COM 
BIC 
INC 
BR 



#2$,$LPERR 

#5$,«W4 

0UIPDRO.RO 

#10, R1 

#-1 t ANDADR 

ORADR 

TONUM 

(RO) 

#2,R0 

R1 ,2$ 

#13,$LPERR 

TONUM 

4$ 

10 

#TIMERR,«M>4 

TST12 

#4,KSP 
7 



R0.R2 

R2.0RADR 

R2 

R2,ANDADR 

TONUM 

3$ 



SET LOOP ON ERROR POINTER TO 2$ 

SET TIMEOUT VECTOR TO 5$ 

LOAD RO WITH ADDRESS OF FIRST REG. 

LOAD R1 WITH LOOP COUNT (8) 

INITIALIZE "AND" OF ADDR. LOC 

INITIALIZE "OR" OF ADDR. LOC. 

INITIALIZE "TIMEOUTS" COUNTER 

TRY ADDRESSING A UIPDR 

IF IT TIMES OUT, WILL GO TO 5$ 

PUT NEXT UIPDR ADDRESS IN RO 

LOOP BACK TO 2$ UNTIL ALL TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

DID ANY OF THE UIPDRS TIME OUT? 

BRANCH IF NO 

SUMMARY OF UIPDR TIMEOUTS 

RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

;G0 TO NEXT TEST 

CLEAN UP THE STACK 

ONE Or THE UIPDRS TIMCD OUT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" ■ 000756 

LOAD THE ADDRESS THAT TIMED OUT INTO R2 

"OR" IT WITH OTHER ADDRS. THAT TIMED OUT 

"AND" IT WITH OTHER ADDRS. THAT TIMED OUT 

INCREMENT THE TIMEOUT COUNTER 
BRANCH BACK TO TEST THE NEXT UIPDR 



J.*************************************************************** 
••TEST 12 SR0(15M3) BIT TEST & SR2 TEST 

;* THIS TEST CHECKS BITS <15:13> OF STATUS REGISTER TO SEE 
;* THAT EACH CAN BE SET AND CLEARED AND THAT A -RESET" WILL 
;• CLEAR ALL OF THEM. A TEST OF THESE THREE ERROR BITS CHECKS 
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SEO 0037 



1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1000 
1801 
1802 
1803 
1804 
1805 
1806 
1307 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 



022002 
022006 
022012 
022014 
022016 
022020 



022022 
022030 
022036 
022042 
022046 
022050 



022052 
022060 
022064 
022070 
022072 
022074 
022076 
022100 
022102 



022104 
022110 
0221 16 

022122 
022124 



022126 
022130 
022132 
022134 



PART OF SRO, THE SRO MUX AND THE KTMUX. THE REST OF THE 

BITS IN SRO WILL BE CHECKED LATER. 

ALSO CHECK THAT SR2 IS TRACKING WITH MEM. MGMT. 

OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 



022000 000004 



***********************«*******< 
TST12! SCOPE 



******************************* 



012700 
012710 
000005 
01 1001 
001404 
104011 



012737 
013737 
012701 
020137 
001401 
104041 



012737 
012701 
012703 
005010 
0501 10 
01 1002 
020102 
001401 
104012 



012704 
013737 
020437 

001401 
104064 



006001 
077321 
005010 
012737 



177572 
160000 



022030 
177576 
022030 
001370 



022070 
100000 
000003 



1$! 



001110 
001370 2$: 



001110 3$: 



4$: 

5$: 



022072 
177576 
001370 



6$: 



022002 001110 



MOV 

MOV 

RESET 

MOV 

BEQ 

ERROR 



MOV 
MOV 
MOV 
CMP 
BEQ 
ERROR 



MOV 
MOV 
MOV 
CLR 
BIS 
MOV 
CMP 
BEQ 
ERROR 



MOV 
MOV 
CMP 

BEQ 
ERROR 



ROR 
SOB 
CLR 
MOV 



#SRO,RO 
#160000,(R0) 

(R0),R1 

2$ 

11 



#2$,$LPERR 

SR2.WASSR2 

02$, R1 

R1.WASSR2 

3$ 

41 



#4$,$LPERR 

0BIT15.R1 

#3,R3 

(RO) 

R1,(R0) 

(R0),R2 

R1 f R2 

6$ 

12 



#5S,R4 

SR2.WASSR2 

R4.WASSR2 

7$ 

J4 



R1 

R3,4$ 

(RO) 

iM$ ( $LPERR 



LOAD ADDRESS OF SRO INTO RO 

SET BITS <15M3> IN SRO (ERROR BITS) 

ISSUE AND "INIT" SIGNAL 

READ SRO INTO R1 TO SEE IF CLEAR 

BRANCH IF SR0<15M3> CLEARED BY "INIT 9 

SR0<15: 13> NOT CLEARED BY A "RESET" 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 1$" = 000770 

SET LOOP ON ERROR POINTER TO 2$ 

READ CONTENTS OF SR2 

LOAD EXPECTED CONTENTS INTO R1 

IS SR2 TRACKING? 

BRANCH IF YES 

SR2 NOT "TRACKING" VIRTUAL ADDRESSES 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" ■ 000767 

SET LOOP ON ERROR POINTER TO 4$ 

PUT DATA TO BE WRITTEN IN R1 

SETUP R3 AS A LOOP COUNTER 

CLEAR SRO 

SET ONE OF THE ERROR BITS IN SRO 

READ SRO INTO R2 

DID RIGHT ERROR BIT GET SET? 

BRANCH IF YES 

BITS WERE SET WRONG IN SRO 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" * 000772 

LOAD EXPECTED CONTENTS OF SR2 IN R4 

READ SR2 

DID SR2 LOGIN UP WHEN ERROR 

BIT SET IN SR1? 

BRANCH IF YES 

SR2 DID NOT LOCK UP 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" * 000761 

CHANGE DATA TO CHECK NEXT ERROR BIT 

LOOP BACK UNTIL <15M3> ALL TESTED 

CLEAR SRO BEFORE LEAVING 

RESET LOOP ON ERROR POINTER TO 1$ 



..******#********•*********************************************** 
•*TEST 13 SRO & PSW DUAL ADDRESSING TEST 

•* THIS TEST CHECKS MORE OF THE ADDRESS DETECTION LOGIC BY 
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SEO 0038 



1028 








1029 








1030 








1831 








1832 








1033 








1834 


022142 


000004 




1835 








1836 


022144 


005037 


177776 


1837 


022150 


005037 


177572 


1338 


022154 


106427 


000340 


1839 


022160 


013700 


177572 


1040 


022164 


001401 




1841 


022166 


104^13 




1042 








1843 








1844 








1845 


022170 


005037 


177572 


1846 


022174 


005037 


177776 


1847 








1848 








1849 








1850 








1051 








1852 








1853 








1854 








1355 








1856 


022200 


000004 




1857 


022202 


012700 


177777 


1858 


022206 


013700 


177574 


1059 


022212 


001401 




1860 


022214 


104014 




1861 








1852 








1863 








1864 








1865 








1066 








1867 








1868 








1869 








1870 








1871 








1872 








1873 








1874 








1875 


022216 


000004 




1876 








1877 


022220 


012700 


172340 


1878 


022224 


012703 


000010 


1879 


022230 


012737 


022236 


1880 


022236 


005010 




1881 


022240 


01 1001 




1BB2 


022242 


001401 




1883 


022244 


104011 





VERIFYING THAT STATUS REGISTER IS NOT EFFECTED BY WRITING 
TO THE PSW AND THAT THE LOW BYTE OF STATUS REGISTER 
IS NOT EFFECTED BY WRITING TO ITS HIGH BYTE. THIS IS TO 
SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC. 



ft******************** 
TST13! SCOPE 



$*##*■;■******* 



ft******)*****!****** 



CLR 

CLR 

MTPS 

MOV 

BEQ 

ERROR 



CLR 
CLR 



PSW 

SRO 

#340 

SRO.RO 

2$ 

13 



SRO 
PSW 



CLEAR THE PSW 

CLEAR STATUS REGISTER 

SET PRIORITY 7 IN LOW BYTE OF PSW 

READ STATUS REGISTER 

BRANCH IF IT WAS STILL 

SRO EFFECTED BY A WRITE TO THE PSW 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 1$" = 000767 

BE SURE SRO IS BEFORE LEAVING 

BE SURE PSW IS BEFORE LEAVING 



. ******** 
*TEST 14 



!*#**<**** 



**********#***#*****4>** 



TEST THAT SR1 READS ALL ZEROS 



THIS TES T S CHECKS THAT EVEN THOUGH STATUS REGISTER 1 

IS NON-EXISTENT, ITS ADDRESS SHOULD RESPOND WITH ALL ZEROS, 

THEREBY CHECK ANOTHER PORTION OF THE ADDRESS DETECTION LOGIC. 



TST14: 



*****#*#*#**#*##**#***•• 



SCOPE 




MOV 


#-1,R0 


MOV 


SR1.R0 


BEQ 


TST15 


ERROR 


14 



;FILL RO WITH ALL ONES 

;READ SR1 INTO RO 

;;BRANCH IF SR1 READS ALL ZEROS 

;SR1 DID NOT READ ALL ZEROS 

;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

;000772 

*TEST 15 BIT TEST OF KERNEL & USER PAR'S 

* THE FOLLOWING TEST CHECKS THE BITS M1:G0> OF BOTH THE KERNEL 

* AND USER PAGE ADDRESS REGISTERS. A "O" IS ROTATED THRU 

* THE REGISTERS FROM LEFT TO RIGHT. THIS CHECKS THE OPERATION 

* OF THE PAR/PDR ADDRESS MUX, THE KT MUX, AND THE PAR 

* OUTPUT DATA LINES. 



t***********************!*********** 



***4i***4****** 



TST15: SCOPE 



1$: 


MOV 


#KIPARO,RO 


2S: 


MOV 


#10, R3 




MOV 


#3$,$LPERR 


3$: 


CLR 


(RO) 




MOV 


(R0),R1 




BEQ 


4$ 




ERROR 


11 



;LOAD ADDRESS OF FIRST PAR IN RO 

;SETUP R3 TO COUNT B PAR'S 

;SET LOOP ON ERROR POINTER TO 3$ 

JCLEAR THE PAR 

;READ THE PAR INTO R1 

{BRANCH IF PAR CLEARED OK 

J PAR WOULD NOT CLEAR 
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SEQ 0039 



1884 








1885 








1086 








1887 


022246 


012704 


167777 


1888 


022252 


012737 


022260 


1889 


022260 


005010 




1890 


022262 


010401 




1891 


022264 


042701 


170000 


1892 


022270 


050110 




1893 


022272 


01 1002 




1894 


022274 


020102 




1895 


022276 


001401 




1896 


022300 


104012 




1897 








1898 








1899 








1900 


022302 


000261 




1901 


022304 


006004 




1902 


022306 


103764 




1903 


022310 


C62700 


000002 


1904 


022314 


077330 




1905 


022316 


022700 


177660 


1906 


022322 


103003 




1907 


022324 


012700 


177640 


1908 


022330 


000735 




1909 


022332 


012737 


022220 


1910 









4$: 



6$: 



001110 7$: 



MOV 


«167777,R4 


MOV 


#5$,$LPERR 


CLR 


(RO) 


MOV 


R4.R1 


BIC 


#170000, R1 


BIS 


R1 ,(R0) 


MOV 


(R0),R2 


CMP 


R1.R2 


BEQ 


6$ 


ERROR 


12 


SEC 




ROR 


R4 


BCS 


5$ 


ADD 


#2,R0 


SOB 


R3,3$ 


CMP 


#UIPAR7+2,R0 


BHIS 


7$ 


MOV 


#UIPARO,RO 


BR 


2$ 


MOV 


#1$,$LPERR 



FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000774 

LOAD "WALKING 0" TEST PATTERN IN R4 

SET LOOP ON ERROR POINTER TO 5$ 

CLEAR 1 E P*VR BEFORE LOADING DATA 

LOAD DATA INTO R1 

MASK UNUSED BITS OUT OF THE DATA 

BIT SET THE TEST PATTERN INTO THE PAR 

READ THE PAR INTO R2 

DOES DATA WRITTEN=DATA READ? 

BRANCH IF YES 

PAR BITS DID NOT SET CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" = 000767 

SET THE C-BIT FOR THE ROTATE INST. 

ROTATE THE TEST PATTERN IN R4 

BRANCH BACK IF MORE BITS TO TEST 

GET NEXT PAR ADDRESS IN RO 

BRANCH BACK UNTIL ALL PAR'S TESTED 

HAVE USER PAR'S BEEN TESTED 

BRANCH IF YES 

LOAD FIRST USER PAR ADDR. IN RO 

BRANCH BACK TO TEST USER PAR'S 

RESET LOOP OR ERROR POINTER TO 1$ 

LEAVE TEST WITH BITS <11:1>*1 IN ALL PAR'S 
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SEQ 0040 



1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
194S 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 



022342 
022346 
022352 
022360 
022362 
022364 
022366 



022370 
022374 
022402 
022404 
022406 
022412 
022414 
022416 
022420 
022422 



022424 
022426 
022430 
022432 
022436 
022440 
022444 
022446 
022452 
022454 



022340 000004 



012700 172300 
012703 000010 



012737 
005010 
01 1001 
001401 
104011 



012704 
012737 
005010 
010401 
042701 
050110 
01 1002 
020102 
001401 
104012 



000261 
006004 
103764 
062700 
077330 
022700 
103003 
012700 
000735 
012737 



022360 001110 



077777 
022402 



000002 
177620 
177600 
022342 



001110 7$ 



fr****************************************^***^************** 

TEST 16 BIT TEST OF KERNEL & USER PDR ' S 

THE FOLLOWING TEST CHECKS THE BITS <14:8> AND <3:1> OF BOTH THE 
KERNEL AND USER PAGE DESCRIPTOR REGISTERS. A "0" IS ROTATED 
THRU THE REGISTERS FROM LEFT TO RIGHT. SOME TEST PATTERNS WILL 
BE LOADED MORE THAN ONCE DUE TO THE UNUSED BITS IN THE PDR'S. 
THE PAR/PDR ADDRESS MUX, KTMUX, AND PDR OUTPUT DATA LINES 
ARE BEING CHECKED. 

^^,ti* ********************************** ************** 

LOAD ADDRESS OF FIRST PDR IN RO 

SETUP R3 TO COUNT 8 PDR'S 

SET LOOP ON ERROR POINTER TO 3$ 

CLEAR THE PDR 

READ THE PDR INTO R1 

BRANCH IF PDR CLEARED OK 

PDR WOULD NOT CLEAR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" ■ 000774 

LOAD "WALKING "0" TEST PATTERN IN R4 

SET LOOP ON ERROR POINTER TO 5$ 

CLEAR THE PDR BEFORE LOADING DATA 

LOAD DATA INTO R1 

MASK UNUSED BITS OUT OF THE DATA 

BIT SET THE TEST PATTERN INTO THE PDR 

READ THE PDR INTO R2 

DOES DATA WRITTEN=DATA READ? 

BRANCH IF YES 

PDR BITS DID NOT SET CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000767 

SET THE C-BIT FOR THE ROTATE INST. 

ROTATE THE TEST PATTERN IN R4 

BRANCH BACK IF MORE BITS TO TEST 

GET NEXT PDR ADDRESS IN RO 

BRANCH BACK UNTIL ALL PDR'S TESTED 

HAVE USER PDR'S BEEN TESTED? 

BRANCH IF YES 

LOAD FIRST USER PDR ADDR. IN RO 

BRANCH BACK TO TEST USER PDR'S 

RESET L-JOP ON ERROR POINTER TO 1$ 

LEAVE TEST WITH ALL WRITEABLE BITS IN 

ALL PDR'S ■ 1 

•'^4************************************************************* 

;*TEST 17 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 
! * 

;* THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL A USER 
;• PAR'S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 
',* THE OTHER. THIS FURTHER VERIFIES THE OPERATION OF THE PAR/PDR 

;* ADDR. MUX AND THE ADDR. DETECTION LOGIC. 



') 



• •* * * * * *** * ** * *** * * ******** * 


TST16: 


SCOPE 




1$: 


MOV 


#KIPDR0,R0 


2$: 


MOV 


#10, R3 




MOV 


#3$,$LPERR 


3$: 


CLR 


(RO) 




MOV 


(RO),R1 




BEO 


4$ 




ERROR 


11 


4$: 


MOV 


#077777,R4 




MOV 


#5$,$LPERR 


5$: 


CLR 


(RO) 




MOV 


R4.R1 




BIC 


#100361 ,R1 




BIS 


R1,(R0) 




MOV 


(R0),R2 




CMP 


R1,R2 




BEO 


6$ 




ERROR 


12 


6$: 


SEC 






ROR 


R4 




BCS 


5$ 




ADD 


#2,R0 




SOB 


R3,3$ 




CMP 


#UIPDR7+2,R0 




BHIS 


7$ 




MOV 


rfUIPDRO.RO 




BR 


2$ 


7$: 


MOV 


#1$,$LPERR 
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SEQ 0041 



1967 
1968 
1969 022462 



****************** ******************************* **************** 
TST17: SCOPE 
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SEQ 0042 



1970 
1971 
1972 
1973 

1974 022502 012701 

1975 022506 005010 



022464 012700 172340 1$: 

022470 012737 022502 001110 2$: 
022476 012703 000010 

177777 3$: 



MOV 


#KIPAR0,RO 


MOV 


*3$,$LPERR 


MOV 


rf10,R3 


MOV 


#-1,R1 


CLR 


(RO) 



;LOAD ADDRESS OF FIRST PAR INTO RO 
;SET LOOP ON ERROR POINTER TO 3$ 
;LOAD LOOP COUNTER TO DO 8 PAR'S 
JLOAD TEST PATTERN INTO R1 
;CLEAR T,,E PAR 
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SEQ 0043 



1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1983 
1 989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 



022510 
022512 
022514 
022520 
022522 
022524 



022526 
022534 
022536 
022542 
022546 
022550 
022554 
022556 
022560 



022562 
022566 
022570 
022574 
022576 
022602 
022604 



110110 
01 1002 
042701 
020102 
001401 
104015 



012737 022534 001110 4$: 



177777 
000001 



005010 
012701 
110160 
01 1002 
042701 
020102 
001401 
104015 



062700 000002 

077333 

022700 177660 

103003 

012700 

000732 

012737 



022464 001110 7$: 



MOVB 


R1, (RO) 


MOV 


(R0),R2 


BIC 


#177400, R1 


CMP 


R1.R2 


BEO 


4$ 


ERROR 


15 


MOV 


#5$,$LPERR 


CLR 


(RO) 


MOV 


#-1 ,R1 


MOVB 


R1,1(R0) 


MOV 


(R0),R2 


BIC 


#170377, R1 


CMP 


R1 ,R2 


BEQ 


6$ 


ERROR 


15 


ADD 


#2,R0 


SOB 


R3,3$ 


CMP 


#UIPAR7+2,R0 


BHIS 


7$ 


MOV 


#UIPARO,RO 


BR 


2$ 


MOV 


#1$,$LPERR 



WRITE 1'S TO THE LOW BYTE OF THE PAR 

READ THE ENTIRE PAR INTO R2 

MASK HIGH BYTE & UNUSED BITS OUT OF THE DATA 

WAS ONLY THE LOW BYTE WRITTEN TO 

BRANCH IF YES 

HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PAR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000766 

SET LOOP ON ERROR POINTER TO 5S 

CLEAR THE PAR 

LOAD TEST, PATTERN INTO R1 

WRITE 1'S TO THE HIGH BYTE OF THE PAR 

READ THE ENTIRE PAR INTO R2 

MASK LOW BYTE & UNUSED BITS OUT OF DATA 

WAS ONLY THE HIGH BYTE WRITTEN TO? 

BRANCH IF YES 

LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PAR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5" = 000765 

PUT ADDRESS OF NEXT PAR IN RO 

BRANCH BACK UNTIL 8 PAR'S TESTED 

HAVE USER PAR'S BEEN TESTED 

BRANCH IF YES 

LOAD ADDRESS OF FIRST USER PAR IN RO 

BRANCH BACK TO TEST USER PAR'S 

RESET LOOP ON ERROR POINTER TO 1$ 
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SEQ 0044 



2005 
2006 
2007 
200B 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 



022614 
022620 
022626 
022632 
022636 
022640 
022642 
022644 
022650 
022652 
022654 



022656 
022664 
022666 
022672 
022676 
022700 
022704 
022706 
022710 



022712 
022716 
022720 
022724 
022726 
022732 
022734 



••^lil*!*************!!!***********!** It!******************************** 

I*TEST 20 TEST FOP DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 

J* 

;* THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 



PDR'S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 
THE OTHER. THIS FURTHER VERIFIES THE OPERATION OF THE PAR/PDR 
ADDR. MUX AND THE ADDR. DETECTION LOGIC. 



022612 000004 



TST20! SCOPE 



##$$#*##*****sM#***»*****#********#******##*****#*** 



012700 
012737 



172300 
022632 



012703 000010 

012701 177777 

005010 

1101 10 

01 1002 

042701 177761 

020102 

001401 

104015 



1$: 
001110 2$: 



3$: 



012737 
005010 
012701 
110160 
01 1002 
042701 
020102 
001401 
104015 



062700 
077333 
022700 
103003 
012700 
000732 
012737 



001110 4$: 
5$' 



177777 
000001 



000002 
177620 
177600 
022614 



001110 7$: 



MOV 

MOV 

MOV 

MOV 

CLR 

MOVB 

MOV 

BIC 

CMP 

BEO 

ERROR 



MOV 

CLR 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

ERROR 



ADD 

SOB 

CMP 

BHIS 

MOV 

BR 

MOV 



#KIPDR0,R0 

#3$,$LPERR 

#10, R3 

#-1,R1 

(RO) 

R1 ,(R0) 

(R0),R2 

#177761 ,R1 

R1.R2 

4$ 

15 



#5$,$LPERR 

(RO) 

0-1, R1 

R1 ,1(R0) 

(R0),R2 

#100377,R1 

R1,R2 

6$ 

15 



#2,R0 

R3,3$ 

#UIPDR7+2,R0 

7$ 

#UIPDR0,R0 

2$ 

#1$ t $LPERR 



;LOAD ADDRESS OF FIRST PDR INTO RO 

;SET LOOP ON ERROR POINTER TO 3$ 

J LOAD LOOP COUNTER TO DO 8 PDR'S 

{LOAD TEST PATTERN INTO R1 

;CLEAR THE PDR 

{WRITE 1*S TO THE LOW BYTE OF THE PDR 

{READ THE ENTIRE PDR INTO R2 

;MASK HIGH BYTE & UNUSED BITS OUT OF DATA 

;WAS ONLY THE LOW BYTE WRITTEN TO? 

{BRANCH IF YES 

-.HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PDR 

;FOR TIGHTER SCOPE LOOP 

-.REPLACE ERROR CALL WITH 

;"BR 3$" - 000766 

;SET LOOP ON ERROR POINTER TO 5$ 

{CLEAR THE PDR 

{LOAD TEST PATTERN INTO R1 

{WRITE 1'S TO THE HIGH BYTE OF THE PDR 

;READ THE ENTIRE PDR INTO R2 

{MASK LOW BYTE & UNUSED BITS OUT OF DATA 

;WAS ONLY THE HIGH BYTE WRITTEN TO? 

{BRANCH IF YES 

;LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PDR 

;FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;"BR 5$" ■ 000765 

{PUT ADDRESS OF NEXT PDR IN RO 

{BRANCH BACK UNTIL 8 PDR'S TESTED 

{HAVE USER PDR'S BEEN TESTED? 

{BRANCH IF YES 

{LOAD ADDRESS OF FIRST USER PDR IN RO 

{BRANCH BACK TO TEST USER PDR'S 

{RESET LOOP ON ERROR POINTER TO 1$ 
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SEQ 004S 



2053 

2054 

2055 

2056 

2057 

205B 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 ' 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 



022742 000004 



022744 
022752 
022756 
022762 
022766 
022772 
022774 
023000 
023004 
023006 
023014 
023020 
023024 
023030 
023034 
023036 
023042 
023046 
023050 
023056 
023062 
023066 
023072 
023076 
023100 
023104 
0231 10 
0231 12 
023120 
023124 
023130 
023134 
023140 
023142 



012737 
012703 
012700 
012706 
004737 
005010 
004737 
062700 
077312 
012737 
012703 
012700 
012706 
004737 
005010 
004737 
062700 
077312 
012737 
012703 
012700 
012706 
004737 
005010 
004737 
062700 
077312 
012737 
012703 
012700 
012706 
004737 
005010 
004*737 



• im**************************************** 11 
*TEST 21 PAR-PDR DUAL ADDRESSING TEST 



*#******#**#***+**** 



THE FOLLOWING TEST SETS ALL OF THE WRITEABLE BITS TO 1 
IN THE SIXTEEN (16) PAR'S AND PDR'S USING THE "SETREG" 
SUBROUTINE AND THEN CLEARS JUST ;NE OF THEM. THE "CMPREG" 
SUBROUTINE IS USED TO READ ALL OF THE PAR'S AND PDR'S TO SEE 
THAT ONLY ONE REGISTER WAS CLEARED IN RESPONSE TO THAT ONE 
PAR OR PDR ADDRESS. THE "CMPREG" SUBROUTINE REPORTS THE 
ADDRESS OF ANY REGISTER WHOSE BITS DID NOT REMAIN SET WHEN 
ANOTHER REGISTER WAS CLEARED. 

THE PAR AND PDR CHIPS, PAR/PDR ADDR. MUX, AND ADDR. DETECTION 
LOGIC ARE CHECKED. 



TST21: SCOPE 



i,#*#*********** *********** **************** 



022762 
000010 
172300 
001100 
036070 

036162 
000002 

023024 
000010 
172340 
001100 
036070 

036162 
000002 

023066 
000010 
177600 
001100 
036070 

036162 
000002 

023130 
000010 
177640 
001100 
036070 

036162 



001110 1$: 

2$: 



MOV 
MOV 
MOV 
MOV 
JSR 
CLR 
JSR 
ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
JSR 
CLR 
JSR 
ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
JSR 
CLR 
JSR 
ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
JSR 
CLR 
JSR 



#2S,$LPERR 

#10, R3 

#KIPDR0,R0 

#KERSTK,KSP 

PC, SETREG 

(RO) 

PC, CMPREG 

#2,R0 

R3,2$ 

#3$,$LPERR 

#10, R3 

#KIPAR0,R0 

#KERSTK,KSP 

PC, SETREG 

(RO) 

PC, CMPREG 

#2,R0 

R3,3$ 

#4$,$LPERR 

#10, R3 

#UIPDR0,R0 

#KERSTK,KSP 

PC, SETREG 

(RO) 

PC, CMPREG 

#2,R0 

R3,4$ 

#5$,$LPERR 

#10, R3 

#UIPAR0,R0 

#KERSTK,KSP 

PC, SETREG 

(RO) 

PC, CMPREG 



SET LOOP ON ERROR POINTER 2$ 

LOAD LOOP COUNTER WITH AN 8 

LOAD ADDRESS OF FIRST KERNEL PDR AND RO 

SETUP STACK POINTER 

SET ALL BITS IN ALL PAR'S IN PDR'S 

CLEAR ONE OF THE KERNEL PDR'S 

SEE IF OTHER PAR/PDR'S WERE EFFECTED 

FORM ADDRESS OF NEXT KERNEL PDR TO CLEAR 

LOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 

SET LOOP ON ERROR POINTER TO 3$ 

LOAD LOOP COUNTER WITH AN 8 

LOAD ADDRESS OF FIRST KERNEL PAR IN RO 

SETUP STACK POINTER 

SET ALL BITS IN ALL PAR'S AND PDR'S 

CLEAR ONE OF THE KERNEL PAR'S 

SEE IF OTHER PAR/PDR'S WERE EFFECTED 

FORM ADDRESS OF NEXT KERNEL PAR TO CLEAR 

LOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 

SET LOOP ON ERROR POINTER TO 4$ 

LOAD LOOP COUNTER WITH AN 8 

LOAD ADDRESS OF FIRST USER PDR IN RO 

SETUP STACK POINTER 

SET ALL BITS IN ALL PAR'S AND PDR'S 

CLEAR ONE OF THE USER PDR'S 

SEE IF OTHER PAR/PDR'S WERE EFFECTED 

FORM ADDRESS OF NEXT USER PDR TO CLEAR 

LOOP TO 4$ UNTIL ALL USER PDR'S CHECKED 

SET LOOP ON ERROR POINTER TO 5$ 

LOAD LOOP COUNTER WITH AN 8 

LOAD ADDRESS OF FIRST USER PAR IN RO 

SETUP STACK POINTER 

SET ALL BITS IN ALL PAR'S AND PDR'S 

CLEAR ONE OF THE USER PAR'S 

SEE IF OTHER PAR/PDR'S WERE EFFECTED 
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SEQ 0046 



2106 


023146 


062700 


000002 


2107 


023152 


077312 




210B 


023154 


012737 


022744 


2109 








21 10 








21 11 








21 12 








2113 








2114 








2115 








21 16 








2117 








2118 








2119 








2120 


023162 


000004 




2121 








2122 








2123 


023164 


004737 


036070 


2124 


023170 


000005 




2125 


023172 


012700 


172300 


2126 


023176 


012704 


000010 


2127 


023202 


01 1001 




212B 


023204 


022701 


077416 


2129 


023210 


001401 




2130 


023212 


104055 




2131 








2132 








2133 








2134 


023214 


062700 


000002 


2135 


023220 


077410 




2136 


023222 


012700 


172340 


2137 


023226 


012704 


000010 


2138 


023232 


01 1001 




2139 


023234 


022,01 


007777 


2140 


023240 


001401 




2141 


023242 


104055 




2142 








2143 








2144 








2145 


023244 


062700 


000002 


2146 


023250 


077410 




2147 


023252 


012700 


177600 


2148 


023256 


012704 


000010 


2149 


023262 


01 1001 




2150 


023264 


022701 


077416 


2151 


023270 


001401 




2152 


023272 


104055 




2153 








2154 








2155 








2156 


023274 


062700 


000002 


2157 


023300 


077410 




2158 








2159 


023302 


012700 


177640 


2160 


023306 


012704 


000010 


2161 


023312 


011001 





ADD 


#2,R0 


SOB 


R3,5$ 


MOV 


#1$,$LPERR 



;FORM ADDRESS OF NEXT USER PAR TO CLEAR 
;LOOP TO 5$ UNTIL ALL USER PAR'S CHECKED 
;SET LOOP ON ERROR POINTER TO 1$ 

j*************************************************************** 

*TEST 22 TEST THAT PAR-PDR ' S NOT AFFECTED BY RESET 

* 

* THIS TEST CHECKS TO SEE THAT THE KERNEL OR USER PAR/PDR'S ARE 

* NOT AFFECTED BY THE EXECUTION OF A "RESET" INSTRUCTION. THE 

* "SETREG" SUBROUTINE IS USED TO SET ALL WRITEABLE BITS TO A "1" IN 

* THE PAR/PDR'S. THEN THEY ARE READ TO SEE THAT THEY REMAINED 

* UNCHANGED 



****************** ****«.**#*#******<****** 
TST22: SCOPE 



******************* 



7$: 



JSR 


PC.SETREG 


RESET 




MOV 


#KIPDRO,RO 


MOV 


#10,R4 


MOV 


(R0) ( R1 


CMP 


#77416, R1 


BEG 


3$ 


ERROR 


55 


ADD 


#2,R0 


SOB 


R4,2$ 


MOV 


#KIPARO,RO 


MOV 


#10, R4 


MOV 


(R0),R1 


CMP 


#7777, R1 


BEO 


5$ 


ERROR 


55 


ADD 


#2,R0 


SOB 


R4,4$ 


MOV 


#UIPDRO,RO 


MOV 


#10, R4 


MOV 


*R0),R1 


CMP 


#77416, R1 


BEO 


7$ 


ERROR 


55 


ADD 


#2,R0 


SOB 


R4,6$ 


MOV 


#UIPAR0,R0 


MOV 


#10, R4 


MOV 


(R0),R1 



SET ALL BITS IN ALL PAR'S AND PDR'S 

ISSUE AN "INIT" BY EXECUTING A RESET 

LOAD ADDRESS OF FIRST KERNEL PDR IN RO 

LOAD LOOP COUNTER WITH AN 8 

READ A KERNEL PDR INTO R1 

ARE ALL THE BITS STILL SET? 

BRANCH IF YES 

KERNEL PDR AFFECTED BY A RESET 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" ■ 000773 

FORM ADDRESS OF NEXT KERNEL PDR 

LOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 

LOAD ADDRESS OF FIRST KERNEL PAR IN RO 

LOAD LOOP COUNTER WITH AN 8 

READ A KERNEL PAR INTO R1 

ARE ALL THE BITS STILL SET? 

BRANCH IF YES 

KERNEL PAR AFFECTED BY A RESET 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" = 000773 

FORM ADDRESS OF NEXT KERNEL PAR 

LOOP TO 4i UNTIL ALL KERNEL PAR'S CHECKED 

LOAD ADDRESS OF FIRST USER PDR IN RO 

LOAD LOOP COUNTER WITH AN 8 

READ A USER PDR INTO R1 

ARE ALL THE BITS STILL SET? 

BRANCH F YES 

USER PDR AFFECTED BY A RESET 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 6$" - 000773 

FORM ADDRESS OF NEXT USER PDR 

LOOP TO 6$ UNTIL ALL USER PDR'S CHECKED 

;LOAD ADDRESS OF FIRST USER PAR IN RO 
;LOAD LOOP COUNTER WITH AN 8 
JREAD A USER PAR INTO R1 
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SEQ 0047 



2162 


023314 


022701 


007777 




2163 


023320 


001401 






2164 


023322 


104055 






2165 










2166 










2167 










2168 


023324 


062700 


000002 




2169 


023330 


077410 






2170 










2171 










2172 










2173 










2174 










2175 










2176 










2177 










2178 










2179 










2180 










2181 










2182 










2183 










2184 










2185 










2 186 










2187 










2188 










2189 










2190 










2191 










2192 










2193 










2194 










2195 


023332 


000004 






2196 


023334 


004737 


036002 




2197 


023340 


012700 


172300 




2198 


023344 


012704 


000010 




2199 


023350 


005020 






2200 


023352 


077402 






2201 


023354 


012737 


000252 


000250 


2202 


023362 


005037 


000252 




2203 










2204 










2205 


023366 


012737 


001006 


172300 


2206 


023374 


012737 


023402 


0011 10 


2207 


023402 


012737 


000400 


177572 


2208 


023410 


000005 






2209 


023412 


032737 


000400 


177572 


2210 


023420 


001403 






2211 


023422 


005037 


177572 




2212 


023426 


104061 






2213 










2214 










2215 










2216 


023430 


012706 


001100 




2217 


023434 


005037 


177572 





CMP 
BEQ 
ERROR 



ADD 
SOB 



#7777, R1 

9$ 

55 



#2,R0 
R4,8$ 



ARE ALL THE BITS STILL SET? 

BRANCH IF YES 

USER PAR AFFECTED BY A RESET 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 8$" » 000773 

FORM ADDRESS OF NEXT USER PAR 

LOOP TO 8$ UNTIL ALL USER PAR'S CHECKED 



;****< 

*TEST 



23 



*********** ********* •*****♦*#*** ************** 
INSTRUCTION FETCH NOT RELOCATED IN MAINT. 



MODE 



THIS TEf- CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS IN 
MAINTENANCE MODE (DESTINATION-ONLY-RELOCATION), AN INSTRUCTION 
FETCH IS NOT RELOCATED AND A RES r T CLEARS THE MAINTENANCE BIT 
(BIT 08) IN SRO. IF THE "FETCH" IS RELOCATED, A PG. LENGTH ABORT 
SHOULD OCCUR, CAUSING A HALT SINCE TRAP CATCHER IS PLACED IN VECTOR 250 

NOTE: A HALT MAY OCCUR IF MAINT. MODE NOT DISABLED BY RESET 

****************************************** **************** 
SCOPE 

TURN T-BIT TRAPPING OFF FOR THIS TEST 
LOAD ADDRESS OF FIRST KERNEL PDR INTO RO 
LOAD LOOP COUNTER WITH AN 8 
CLEAR PDR - MAPPING PAGE NON-RES, BLKS. 
LOOP TO 2$ UNTIL ALL KERNEL PDR'S CLEARED 
LOAD TRAP CATCHER INTO MEM MGM. VECTOR 

A HALT WILL OCCUR IF RESET FAILS 

TO DISABLE DEST.-ONLY RELOCATION 

MAP KERNEL PG R/W, 3 BLOCKS LONG. 

SET LOOP ON ERROR POINTER TO 3$ 

TURN ON DEST-ONLY-RELOCATION 

SHOULD CLEAR MAINT. BIT - WILL ABORT IF RELOCATED 

WAS MAINT. BIT (BIT 8) OF SRO CLEARED7 

BRANCH IF YES 

CLEAR SRO SO ERROR CAN BE REPORTED 

MAINT. MODE NOT DISABLED BY A RESET 

FOR A TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000765 

RESTORE STACK POINTER 

BE SURE SRO IS CLEAR 



1$: 


JSR 


PC, TOFF 




MOV 


#KIPDR0,R0 




MOV 


#10, R4 


2$: 


CLR 


(R0) + 




SOB 


R4,2$ 




MOV 


#MMVEC+2,MMVEC 




CLR 


MMVEC+2 




MOV 


#1006,KIPDR0 




MOV 


#3$,$LPERR 


3$: 


MOV 
RESET 


#BIT8,SR0 




BIT 


#BIT8,SR0 




BEQ 


4$ 




CLR 


SRO 




ERROR 


61 


4S: 


MOV 


#KERSTK,KSP 




CLR 


SRO 
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SEQ 0043 



2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2255 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2255 
2266 
2267 
226B 
2269 
2270 
2271 
2272 
2273 



023440 012737 002400 000250 

023446 012737 000340 000252 

023454 012737 023334 001110 

023462 004737 036036 



MOV 
MOV 
MOV 
JSR 



#MGMERR,MMVEC JRESTORE MEM. MGMT. TRAP VECTOR 

#340,MMVEC+2 ; RESTORE MEM. MGMT VECTOR+2 

#1$,$LPERR '.RESET LOOP ON ERROR POINTER TO 1$ 

HC.TON ;TURN T-BIT TRAPPING BACK ON 



023466 
023470 
023474 
023502 
023510 
023516 
023524 
023530 
023536 
023544 
023552 
023560 
023564 
023572 
023600 
023602 
023606 
023610 
023612 



000004 
004737 
012737 
012737 
012737 
012737 
005037 
012737 
012737 
012737 
012737 
012700 
052737 
113737 
000005 
013701 
020001 
001401 
104062 



036002 
023564 
000600 
000600 
007600 
172306 
077406 
077406 
023644 
000377 
177777 
000400 
060000 

060000 



********** 



************************************************** 
TEST THAT SOURCE NOT RELOCATED IN MAINTENANCE MODE 



THIS TEST CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS IN 
MAINTENANCE MODE, THE SOURCE IS NOT RELOCATED. ONLY THE 
DESTINATION IS RELOCATED. KERNEL PAR'S 3 & 4 ARE MAPPED TO 
PHYSICAL ADDRESS 60000-77776. PDR4 IS SET TO ALLOW FULL READ/WRITE 
BUT PDR3 IS CLEAR ALLOWING TO ACCESS. VIRTUAL ADDRESSES REFERENCING 
PAR/PDR'S 4 & 3 ARE USED IN AS DESTINATION AND SOURCE RESPECTIVELY. 
IF THE SOURCE IS RELOCATED IN MAINTENANCE A MEM. MGMT. TRAP WILL 
OCCUR AND THE ERROR WILL BE REPORTED. KERNEL PG. 7 IS MAPPED R/W. 



0011 10 
172343 
172350 
172356 

172310 
172316 
000250 
060000 

177572 
100001 



• ;**** 
TST24! 

1$: 



023614 012737 002400 000250 
023622 012737 077406 172306 
023630 012737 023470 001110 



******** 
SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOVB 
RESET 
MOV 
CMP 
BEQ 
ERROR 



MOV 
MOV 
MOV 



****************** 

PC, TOFF 

#2$,$LPERR 

#600,KIPAR3 

#600,KIPAR4 

#7600,KIPAR7 

KIPDR3 

#77406, KIPDR4 

#77406, KIPDR7 

#4$,MMVEC 

#377,@#60000 

#-1 ,R0 

#BIT8,SR0 

©#60000, ©#100001 

$#60000, R1 

R0,R1 

3$ 

62 



#MGMERR,MMVEC 
#77406, KIPDR3 
#1$ t $LPERR 



;MAP KERNAL PAGE 
[MAP KERNAL PAGE 
;MAP KERNAL PAGE 
;MAP KERNAL PAGE 
;MAP KERNAL PAGE 
SET M.M. VtCTUK 
LOAD ALL 1 'S IN 



;TURN OFF T-BIT TRAPPING FOR THIS TEST 
;SET LOOP ON ERROR POINTER TO 2$ 
;MAP KERNAL PAGE 3 TO 12-16K 

4 TO 12-16K 

7 TO THE I/O PAGE 

3 "NO ACCESS" 

4 R/W, 128 BLKS 
7 R/W, 128 BLKS 
TO 4$ IN CASE OF ABORT 
LOW BYTE OF TEST LQC . 

LOAD EXPECTED CONTENTS OF TEST LOC. IN RO 
|TURN ON DEST. -ONLY-RELOCATION 

;LOAD HI BYTE OF TEST LOC. -ABORT IF SOURCE RELOCATED 
;TURN OFF DEST. -ONLY-RELOCATION 
;READ CONTENTS OF TEST LOC. 
|WAS TEST LOCATION LOADED PROPERLY? 
[BRANCH IF YES 

;TEST LOC. NOT LOADED - INST. WAS ABORTED 
;WHEN SOURCE WAS RELOCATED 
;FOR TIGHTER SCOPE LOOP REPLACE 
[ERROR CALL WITH 
;»BR 2$" ■ 000764 
[RESTORE MEM. MGMT. VECTOR 
[MAP KERNAL PAGE 3 R/W, 128 BLKS 
[RESET LOOP ON ERROR POINTER TO 1$ 
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SEQ 0049 



2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
228B 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 



023636 
023642 



023644 
023652 
023660 
023666 
023672 
023676 
023702 
023710 



023712 
023716 
023722 



023726 
023732 
023734 
023740 
023742 
023746 



004737 
000430 



042737 
013737 
013737 
010637 
012637 
012537 
042737 
104063 



013746 
013746 
000002 



JSR PC, TON ;TURN T-BIT TRAPPING BACK ON 

BR TST25 ;;SK1P TO NEXT TEST 

IF THE PROGRAM TRIES TO RELOCATE THE SOURCE, IT SHOULD TRAP TO 4$ 



000400 
177572 
177576 
001354 
001356 
001360 
160000 



001360 
001356 



177572 4$: 

001366 

001370 



BIC 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
ERROR 



#BIT8,SR0 

SRO.WASSRO 

SR2.WASSR2 

SP.WASR6 

(SP)+,TRAPPC 

(SP)+,TRAPPS 

#160000, SRO 

63 



MOV TRAPPS.-(SP) 
MOV TRAPPC.-(SP) 
RTI 



TURN OFF DEST. -ONLY-RELOCATION THRU PAR/PDR 7 

SAVE REST OF SRO CONTENTS 

SAVE CONTENTS OF SR2 

SAVE VALUE OF THE STACK POINTER 

SAVE PC OF TRAP 

SAVE PSW OF TRAP 

CLEAR ERROR BITS IN SR1 

SOURCE APPARENTLY RELOCATED IN MAINT. MODE 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH A 

"NOP" - 000240 

PUT PSW OF TRAP BACK ON THE STACK 

PUT PC OF TRAP BACK ON THE STACK 

RETURN TO TEST 



I************************* 



************* 



***************** 



25 RELOCATION & ADDER TEST (NO CARRIES) 

THE FOLLOWING TEST SETS UP THE KERNEL PAR'S AND PDR'S 

FOR THE REST OF THE PROGRAM. IT THEN USES DIFFERENT 

VIRTUAL ADDRESSES AND DIFFERENT VALUES FOR KERNEL PAR 4 

TO PUT DIFFERENT PATTERNS AT THE INPUTS OF THE THREE 

MEMORY MANAGEMENT ADDER CHIPS. THE VALUES ARE SUCH 

THAT NO CARRIES ARE GENERATED OUT OF ANY OF THE ADDER CHIPS. 

THE METHOD USED TO SEE THAT THE RIGHT PHYSICAL BUS ADDRESS 
IS FORMED BY THE ADDERS IS TO WRITE A PATTERN TO VIRTUAL 
LOCATION WITH MEMORY MGMT. IN THE MAINTENANCE MODE, AND 
THEN READ THAT LOCATION USING THE PHYSICAL ADDRESS THAT SHOULD 
HAVE BEEN FORMED TO SEE IF THE TEST PATTERN GOT THEIR. 



023724 000004 



* ********************************* 
TST25: SCOPE 



!************ 



!***#**********« 



012700 
005001 
012702 
010120 
062701 
077204 



1$: 


MOV 


#KIPAR0,R0 




CLR 


R1 




MOV 


#7,R2 


2$: 


MOV 


R1,(R0)+ 




ADD 


#200 t R1 




SOB 


R2,2$ 



JLOAD ADDRESS OF FIRST KERNEL PAR IN RO 

JCLEAR R1 

JLOAD LOOP COUNTER WITH A 7 

;MAP KERNEL PAR'S TO PAGES 0-6 ( 4K EACH) 

J LOOP UNTIL KIPARO - KIPAR6 ARE LOADED 
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SEO 0050 



Jlllllll 

wmmi 



2330 


023750 


012710 


007600 


MOV 


#7600, (RO) 


2331 


023754 


012700 


172300 


MOV 


#KIPDRQ,R0 


2332 


023760 


012701 


077406 


MOV 


#77406, R1 


2333 


023764 


012702 


000010 


MOV 


#10, R2 


2334 


023770 


010120 




3S5 MOV 


R1 ,(R0)+ 


2335 


C23772 


077202 




SOB 


R2,3$ 


2336 












2337 


023774 


012737 


023774 001110 


4$: MOV 


#4$,$LPERR 


2338 


024002 


012700 


067776 


MOV 


#67776, RO 


2339 


024006 


012701 


107776 


MOV 


#107776, R1 


2340 


024012 


012702 


125250 


MOV 


#125250, R2 


2341 


024016 


012704 


000600 


MOV 


#600, R4 {LOAD R4 


2342 


024022 


010437 


172350 


MOV 


R4.KIPAR4 


2343 


024026 


01 1.37 


001176 


MOV 


(RO).STMPO 


2344 


024032 


052737 


000400 177573 


BIS 


#BIT8,SR0 


2345 


02-3040 


01021 1 




MOV 


R2,(R1) 


2346 


024042 


01 1003 




MOV 


(R0),R3 


2347 


024044 


000005 




RESET 




2348 


024046 


013710 


001176 


MOV 


STMPO.(RO) 


2349 


024052 


020203 




CMP 


R2.R3 


2350 












2351 


024054 


001405 




BEQ 


5$ 


2352 


024056 


010137 


001402 


MOV 


R1 ,VIRT1 


2353 


024062 


004737 


036354 


JSR 


^C.FORMPA 


2354 


024066 


104017 




ERROR 


17 


2355 












2356 












2357 












2358 












2359 












2 360 












2361 












2362 


024070 






5$: 




2363 


024070 


012737 


024070 001110 


6$: MOV 


#6$,$LPERR 


2364 


024076 


012700 


067776 


MOV 


#67776, RO 


2365 


024102 


012701 


102576 


MOV 


#102576, R1 


2366 


024106 


012702 


125251 


MOV 


#125251 ,R2 


2367 


0241 12 


012704 


000652 


MOV 


#652, R4 ;LOAO R4 


2368 


0241 16 


010437 


172350 


MOV 


R4.KIPAR4 


2369 


024122 


01 1037 


001176 


MOV 


(R0),$TMP0 


2370 


024126 


052737 


000400 177572 


BIS 


#BIT8,SR0 


2371 


024134 


010211 




MOV 


R2,(R1) 


2372 


024136 


01 1003 




MOV 


(R0),R3 


2373 


024140 


000005 




RESET 




2374 


024 142 


013710 


001176 


MOV 


$TMP0,(R0) 


2375 


024146 


020203 




CMP 


R2.R3 


2376 












2377 


024150 


001405 




BEQ 


7$ 


2378 


024152 


010137 


001402 


MOV 


R1 .VIRT1 


2379 


024156 


004737 


036354 


JSR 


PCFORMPA 


2380 


024162 


104017 




ERROR 


17 


2381 












2382 












2383 












2384 












2385 













MAP KIPAR7 TO THE I/O PAGE 
LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
LOAD PDR DATA INTO R1 
LOAD LOOP COUNTER WITH AN 8 
MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
EXPANDABLE, READ/WRITE 



;SET LOOP ON ERROR POINTER TO 4$ 
;LOAD PHYSICAL ADDR. PBA INTO RO 
;LOAD VIRTUAL ADDR. VBA INTO R1 
;LOAD TEST PATTERN INTO R2 
R4 WITH PAR VALUE 

{LOAD KERNEL PAR 4 BITS <11:00> 

{SAVE CONTENTS AT TEST LOCATION 

{TURN ON "DESTINATION-ONLY-RELOCATION" 

;LOAD 125250 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 

{READ 125250 BACK WITHOUT USING MEM. MGMT. 

;TURN OFF MEMORY MGMT. MA1NT. MODE 

{RESTORE ORIGINAL CONTENTS TO TEST LOC. 

{WAS SAME PATTERN READ BACK THAT WAS 

{WRITTEN USING " DEST-ONLY-RELOC . " ? 

{BRANCH IF YES 

{SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

;GO FORM PHYSICAL ADDRESS FOR TYPING 

{TEST LOCATION DID NOT HAVE PATTERN 

{THAT SHOULD HAVE BEEN WRITTEN TO IT. 

{APPARENTLY PHYSICAL ADDR. WAS 

{FORMED WRONG BY ADDERS USING 

{THE VIRTUAL ADDR. AND KIPAR4 

{FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;"BR 4$" * 000742 



SET LOOP ON ERROR POINTER TO 6$ 

LOAD PHYSICAL ADDR. PBA INTO RO 

LOAD VIRTUAL ADDR. VBA INTO R1 

LOAD TEST PATTERN INTO R2 

WITH PAR VALUE 

LOAD KERNEL PAR 4 BITS <11:00> 

SAVE CONTENTS AT TEST LOCATION 

TURN ON "DESTINATION-ONLY-RELOCATION" 

LOAD 125251 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 

READ 125251 BACK WITHOUT USING MEM. MGMT. 

TURN OFF MEMORY MGMT. MAINT. MODE 

RESTORE ORIGINAL CONTENTS TO TEST LOC. 

WAS SAME PATTERN READ BACK THAT WAS 

WRITTEN USING "DEST-ONLY-RELOC."? 

BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

GO FORM PHYSICAL ADDRESS FOR TYPING 

TEST LOCATION DID NOT HAVE PATTERN 

THAT SHOULD HAVE BEEN WRITTEN TO IT. 

APPARENTLY PHYSICAL ADDR. WAS 

FORMED WRONG BY ADDERS USING 

THE VIRTUAL ADDR. AND KIPAR4 

FOR TIGHTER SCOPE LOOP 
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SEO 0051 



2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 



024164 
024164 
024172 
024176 
024202 



024346 
024352 



012737 024164 
012700 067776 



7$: 
001110 8$: 



012701 
012702 



024206 012704 
024212 010437 
024216 
024222 
024230 



105276 
125252 
000625 
172350 
011037 001176 



052737 

010211 
024232 011003 
024234 000005 
024236 013710 001176 
024242 020203 

024244 001405 

024246 010137 001402 

024252 004737 036354 

024256 104017 



000400 177572 



024260 012737 
024266 012700 



024260 
177776 
100076 



024272 012701 

024276 012702 030340 

024302 012704 007777 

024306 010437 172350 

024312 005010 

024314 052737 

024322 010211 

024324 011003 

024326 000005 

024330 005010 

024332 042703 

024336 020203 

024340 001405 

024342 010137 



001402 
004737 036354 



MOV 


*8$,$LPERR 


MOV 


#67776, RO 


MOV 


#105276, R1 


MOV 


#125252, R2 


MOV 


#625, R4 {LOAD R4 


MOV 


R4.KIPAR4 


MOV 


(R0),$TMP0 


BIS 


#BIT8,SR0 


MOV 


R2,(R1) 


MOV 


(R0),R3 


RESET 




MOV 


$TMP0,(R0) 


CMP 


R2.R3 


BEQ 


9$ 


MOV 


R1.VIRT1 


JSR 


PCFORMPA 


ERROR 


17 



001110 10$: 



000400 177572 



024354 012737 024354 001110 11$: 
024362 SI 2700 177776 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

BIS 

MOV 

MOV 

RESET 

CLR 

BIC 

CMP 

BEQ 

MOV 

JSR 

ERROR 



MOV 
MOV 



#10$,$LPERR 

#PSW,R0 

#100076, R1 

#030340, R2 

#7777, R4 

R4.KIPAR4 

(RO) 

#BIT8,SR0 

R2,(R1) 

(R0),R3 

(RO) 

#37,R3 

R2.R3 

11$ 

R1.VIRT1 

PCFORMPA 

17 



#11$,$LPERR 
#PSW,R0 



REPLACE ERROR CALL WITH 
"BR 6$" = 000742 

SET LOOP ON ERROR POINTER TO 8$ 

LOAD PHYSICAL ADDR. PBA INTO RO 

LOAD V1..TUAL ADDR. VBA INTO R1 

LOAD TEST PATTERN INTO R2 

WITH PAR VALUE 

LOAD KERNEL PAR 4 BITS <11:00> 

SAVE CONTENTS AT TEST LOCATION 

TURN ON "DESTINATION-ONLY-RELOCATION" 

LOAD 125252 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 

READ 125252 BACK WITHOUT USING MEM. MGMT. 

TURN OFF MEMORY MGMT. MAINT. MODE 

RESTORE ORIGINAL CONTENTS TO TEST LOC. 

WAS SAME PATTERN READ BACK THAT WAS 

WRITTEN USING "DEST-ONLY-RELOC . M ? 

BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

GO FORM PHYSICAL ADDRESS FOR TYPING 

TEST LOCATION DID NOT HAVE PATTERN 

THAT SHOULD HAVE BEEN WRITTEN TO IT. 

APPARENTLY PHYSICAL ADDR. WAS 

FORMED WRONG BY ADDERS USING 

THE VIRTUAL ADDR. AND KIPAR4 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 8$" ■ 000742 



SET LOOP ON ERROR POINTER TO 10$ 

LOAD PHYS. ADDR. OF PSW INTO RO 

LOAD VIRTUAL ADDR. FOR PSW INTO R1 

LOAD DATA FOR PSW IN R2 

LOAD R4 WITH PAR VALUE 

LOAD KERNEL PAR 4 BITS <11:00> 

CLEAR THE PSW 

TURN ON "DESTINATION-ONLY-RELOCATION M 

LOAD PSW USING ADDER CHIPS (PAR4 + VIRT ADDR.) 

READ PSW BACK WITHOUT USING MEM. MGMT. 

TURN OFF MEM. MGMT MAINT. MODE 

CLEAR THE PSW 

MASK T-BIT & CC BITS OUT OF DATA READ 

WAS PSW WRITTEN WHILE IN MAINT. MODE? 

BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

GO FORM PHYSICAL ADDR. FOR TYPING 

PSW DID NOT HAVE DATA THAT IT SHOULD HAVE, 

APPARENTLY PHYS. ADDR. OF PSW WAS 

NOT FORMED BY ADDERS USING THE 

VIRTUAL ADDR. AND KIPAR4 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 10$" » 000742 

SET LOOP ON ERROR POINTER TO 11$ 

LOAD PHYS. ADDR. OF PSW INTO RO 



9 % 
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SEO 0052 



2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 



024366 
024372 
024376 
024402 
024406 
024414 
024416 
024420 
024422 
024424 
024430 
024432 
024434 
024440 
024444 



024456 

024456 
024464 
024470 
024474 
024500 
024504 
024510 
024514 
024522 
024524 
024526 
024530 
024534 

024536 
024540 
024544 



012701 
012702 
012704 
010437 
052737 
010211 
01 1003 
000005 
005010 
042703 
020203 
001405 
010137 
004737 
104017 



117776 
030240 
007600 
172350 
000400 



001402 
036354 



177572 



MOV 


#117776, R1 


MOV 


#030240, R2 


MOV 


#7600, R4 


MOV 


R4.KIPAR4 


BIS 


#BIT8,SR0 


MOV 


R2,(R1) 


MOV 


(R0),R3 


RESET 




CLR 


(RO) 


BIC 


#37, R3 


CMP 


R2.R3 


BEQ 


12$ 


MOV 


R1.VIRT1 


JSR 


PCFORMPA 


ERROR 


17 



024446 012737 023726 001110 12$: 



#1$,$LPERR 



;LOAD VIRTUAL ADDR. FOR PSW INTO R1 

jLOAD DATA FOR PSW IN R2 

JLOAD R4 WITH PAR VALUE 

jLOAD KERNEL PAR 4 BITS <11:00> 

jTURN ON "DESTINATION-ONLY-RELOCATION" 

;LOAD PSW USING ADDER CHIPS (PAR4 + VIRT. ADDR.) 

;READ PSW BACK WITHOUT USING MEM. MGMT . 

;TURN OFF MEM. MGMT. MAINT. MODE 

;CLEAR THE PSW 

;MASK T-BIT & CC BITS OUT OF DATA READ 

;WAS PSW WRITTEN WHILE IN MAINT. MODE? 

; BRANCH IF YES 

;SAVE VIRTUAL ADDR. TO FORM PHYSICAL ADDR. 

;GO FORM PHYSICAL ADDR. FOR TYPING 

;PSW DID NOT HAVE DATA THAT IT SHOULD 

jHAVE, APPARENTLY PHYS. ADDR. OF PSW WAS 

;NOT FORMED BY ADDERS USING THE 

JVIRTUAL ADDR. AND KIPAR4 

;FOR TIGHTER SCOPE LOOP 

JREPLACE ERROR CALL WITH 

;"BR 11$" = 000743 

jRESET LOOP ON ERROR POINTER TO 1$ 

********************* 



3 



********************************** 

26 RELOCATION & ADDER TEST (WITH CARRIES) { 

THE FOLLOWING TEST USES THE SAME METHOD AS THE PREVIOUS 
TEST TO VERIFY MEMORY MANAGEMENTS ABILITY TO CONSTRUCT 
PHYSICAL BUS ADDRESSES USING A VIRTUAL BUS ADDRESS AND THE 
CONTENTS OF A PAGE ADDRESS REGISTER. HOWEVER, THE VALUES 
AND PATTERNS USED IN THIS TEST WILL GENERATE CARRIES FROM 
CHIP TO CHIP AND CHECK "WRAPAROUND" TO ADDRESS 000000 BY 
USING VIRTUAL ADDR. 100100 AND KIPAR4 « 7777. 



024454 000004 



******************************** 
TST26! SCOPE 



********* 



i************ 



012737 
012700 
012701 
012702 
012704 
010437 
01 1037 
052737 
010211 
01 1003 
000005 
013710 
020203 

001405 
010137 
004737 



024456 
064276 
102176 
125253 
000621 
172350 
001176 
000400 



001402 
036354 



1$: 
001110 2$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

RESET 

MOV 

CMP 

BEQ 
MOV 
JSR 



#2$,$LPERR 

#64276,R0 

#102176, R1 

#125253, R2 

^621 ,R4 JLOAD R4 

R4.KIPAR4 

(R0),$TMP0 

#BIT8,SR0 

R2,(R1) 

(R0),R3 

$TMP0,(R0) 
R2.R3 

3$ 

R1.VIRT1 

PCFORMPA 



KERNEL PAR'S AND PDR'S HAVE BEEN 

SETUP BY THE PREVIOUS TEST 

SET LOOP ON ERROR POINTER TO 2$ 

LOAD PHYSICAL ADDR. PBA INTO RO 

LOAD VIRTUAL ADDR. VBA INTO R1 

LOAD TEST PATTERN INTO R2 

WITH PAR VALUE 

LOAD KERNEL PAR 4 BITS <1 1 : 0O> 

SAVE CC-. TENTS AT TEST LOCATION 

TURN ON "DESTINATION-ONLY-RELOCATION" 

LOAD 125253 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 

READ 125253 BACK WITHOUT USING MEM. MGMT. 

TURN OFF MEMORY MGMT. MAINT. MODE 

RESTORE ORIGINAL CONTENTS TO TEST LOC. 

WAS SAME PATTERN READ BACK THAT WAS 

WRITTEN USING "DEST-ONLY-RELOC . ■? 

BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

GO FORM PHYSICAL ADDRESS FOR TYPING 
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SEQ 0053 



2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 



024550 104017 



ERROR 17 



024552 
024552 
024560 
024564 
024570 
024574 
024600 
024604 
024610 
024616 
024620 
024622 
024624 
024630 

024632 
024634 
024640 
024644 



024646 
024646 
024654 
024660 
024664 
024670 
024674 
024700 
024704 
024712 
024714 
024716 
024720 
024724 

024726 
024730 
024734 
024740 



024552 
064476 
112376 
125254 
000521 
172350 
001176 
000400 



012737 
012700 
012701 
012702 
012'04 
010437 
01 1037 
052737 
01021 1 
01 1003 
000005 
013/10 
020203 



001405 

010137 001402 
004737 036354 
104017 



3$: 
001110 4$: 



012737 
012700 
012701 
012702 
012704 
010437 
01 1037 
052737 
01C21 1 
01 1003 
000005 
013710 
020203 

001405 
010137 
004737 
104017 



024646 
061076 
106776 
125255 
000521 
172350 
001176 
000400 



MOV 


#4$,$LPERR 


MOV 


#64476, RO 


MOV 


#112376, R1 


MOV 


#125254, R2 


MOV 


#521 ,R4 JLOAD R4 


MOV 


R4.KIPAR4 


MOV 


(R0),$TMP0 


BIS 


#BIT8,SR0 


MOV 


R2,(R1 ) 


MOV 


(R0),R3 


RESET 




MOV 


$TMP0,(R0) 


CMP 


R2.R3 


BEQ 


.-»$ 


MOV 


R1 ,VIRT1 


JSR 


PCFORMPA 


ERROR 


17 



5$: 
001110 6$: 



177572 



001402 
036354 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

RESET 

MOV 

CMP 

BEQ 
MOV 
JSR 
ERROR 



#6$,$LPERR 

#61076, RO 

#106776, R1 

#125255, R2 

#521 ,R4 jLOAD R4 

R4,KIPAR4 

(R0),$TMP0 

#BIT8,SR0 

R2,(R1) 

(R0) f R3 

$TMP0,(R0) 
R2,R3 

7$ 

R1.VIRT1 
PCFORMPA 
17 



;TEST LOCATION DID NOT HAVE PATTERN 
jTHAT SHOULD HAVE BEEN WRITTEN TO IT. 
jAPPARENTLY PHYSICAL ADDR. WAS 
; FORMED WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPAR4 
; FOR TIGHTER SCOPE LOOP 
JREPLACE ERROR CALL WITH 
; "BR 2$" = 000742 

;SET LOOP ON ERROR POINTER TO 4$ 
JLOAD PHYSICAL ADDR. PBA INTO RO 
•.LOAD VIRTUAL ADDR. VBA INTO R1 
JLOAD TEST PATTERN INTO R2 

WITH PAR VALUE 
JLOAD KERNEL PAR 4 BITS <11:00> 
JSAVE CONTENTS AT TEST LOCATION 
{TURN ON "DESTINATION-ONLY-RELOCATION" 
JLOAD 125254 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 
jREAD 125254 BACK WITHOUT USING MEM. MGMT. 
jTURN OFF MEMORY MGMT. MAINT. MODE 
jRESTCRE ORIGINAL CONTENTS TO TEST LOC. 
;WAS SAME PATTERN READ BACK THAT WAS 
JWRITTEN USING "DEST-ONLY-RELOC . " ? 
{BRANCH IF YES 

JSAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
;GO FORM PHYSICAL ADDRESS FOR TYPING 
jTEST LOCATION DID NOT HAVE PATTERN 
jTHAT SHOULD HAVE BEEN WRITTEN TO IT. 
jAPPARENTLY PHYSICAL ADDR. WAS 
; FORMED WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPAR4 
;FOR TIGHTER SCOPE LOOP 
JREPLACE ERROR CALL WITH 
;"BR 4$" = 000742 

;SET LOOP ON ERROR POINTER TO 6$ 
JLOAD PHYSICAL ADDR. PBA INTO RO 
jLOAD VIRTUAL ADDR. VBA INTO R1 
JLOAD TEST PATTERN INTO R2 

WITH PAR VALUE 
jLOAD KERNEL PAR 4 BITS <11:00> 
JSAVE CONTENTS AT TEST LOCATION 
JTURN ON "DESTINATION-ONLY-RELOCATION" 
JLOAD 125255 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 
jREAD 125255 SACK WITHOUT USING MEM. MGMT. 
jTURN OFF MEMORY MGMT. MAINT. MODE 
jRESTORE ORIGINAL CONTENTS TO TEST LOC. 
;WAS SAME PATTERN READ BACK THAT WAS 
JWRITTEN USING "DEST-ONLY-RELOC"? 
; BRANCH IF YES 

jSAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
;GO FORM PHYSICAL ADDRESS FOR TYPING 
JTEST LOCATION DID NOT HAVE PATTERN 
jTHAT SHOULD HAVE BEEN WRITTEN TO IT. 
jAPPARENTLY PHYSICAL ADDR. WAS 
5 FORMED WRONG BY ADDERS USING 
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SEO 0054 



2554 












2555 












2556 












2557 












2558 


024742 




7$: 






2559 


024742 


012737 


024742 001110 8$: 


MOV 


#8$,$LPERR 


2560 


024750 


012700 


060076 


MOV 


#60076,R0 


2561 


024754 


012701 


107776 


MOV 


#107776, R1 


2562 


024760 


012702 


125256 


MOV 


#125256, R2 


2563 


021764 


012704 


000501 


MOV 


#501 ,R4 ;LOAD R4 


2564 


024770 


010437 


172350 


MOV 


R4.KIPAR4 


2565 


024774 


01 1037 


001176 


MOV 


(RO),$TMPO 


2566 


025000 


052737 


000400 177572 


BIS 


#BIT8,SR0 


2567 


025006 


010211 




MOV 


R2,(R1 ) 


2568 


025010 


01 1003 




MOV 


(R0),R3 


2569 


025012 


000005 




RESET 




2570 


025014 


013710 


001176 


MOV 


$TMP0,(R0) 


2571 


025020 


020203 




CMP 


R2.R3 


2572 












2573 


025022 


001405 




BEO 


9$ 


2574 


025024 


010137 


001402 


MOV 


R1.VIRT1 


2575 


025030 


004737 


036354 


JSR 


PC f FORMPA 


2576 


025034 


104017 




ERROR 


17 


2577 












2578 












2579 












2580 












2581 












2582 












2583 












2584 


025036 




9$: 






25B5 


025036 


012737 


025036 OOlllt 10$: 


MOV 


#10$,$LPERR 


2586 


025044 


012700 


000000 


MOV 


#000000, RO 


2587 


025050 


012701 


100100 


MOV 


#100100, R1 


2588 


025054 


012702 


125257 


MOV 


#125257, R2 


2589 


025060 


012704 


007777 


MOV 


#7777, R4 


2590 


025064 


010437 


172350 


MOV 


R4.KIPAR4 


2591 


025070 


01 1037 


001176 


MOV 


(R0),$TMP0 


2592 


025074 


052737 


000400 177572 


BIS 


#BIT8,SR0 


2593 


025102 


010211 




MOV 


R2,(R1 ) 


2594 


025104 


01 1003 




MOV 


(R0),R3 


2595 


025106 


000005 




RESET 




2596 


0251 10 


013710 


001176 


MOV 


STMPO.(RO) 


2597 


0251 14 


020203 




CMP 


R2.R3 


2598 












2599 


0251 16 


001405 




BEO 


1 1S 


2600 


025120 


010137 


001402 


MOV 


R1.VIRT1 


2601 


025124 


004737 


036354 


JSR 


PC.FORMPA 


2602 


025130 


104017 




ERROR 


17 


2603 












2604 












2605 












2606 












2607 












2608 












2609 













THE VIRTUAL ADDR. AND KIPAR4 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
BR 6$" ■ 000742 

SET LOO ON ERROR POINTER TO 8$ 
LOAD PHYSICAL ADDR. PBA INTO RO 
LOAD VIRTUAL ADDR. VBA INTO R1 
LOAD TEST PATTERN INTO R2 
WITH PAR VALUE 

LOAD KERNEL PAR 4 BITS <11:00> 
SAVE CONTENTS AT TEST LOCATION 
TURN ON "DESTINATION-ONLY-RELOCATION" 
LOAD 125256 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 
READ 125256 BACK WITHOUT USING MEM. MGMT. 
TURN OFF MEMORY MGMT. MAINT. MODE 
RESTORE ORIGINAL CONTENTS TO TEST LOC. 
WAS SAME PATTERN READ BACK THAT WAS 
WRITTEN USING "DEST-ONLY-RELOC . " ? 
BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
GO FORM PHYSICAL ADDRESS FOR TYPING 
TEST LOCATION DID NOT HAVE PATTERN 
THAT SHOULD HAVE BEEN WRITTEN TO IT. 
APPARENTLY PHYSICAL ADDR. WAS 
FORMED WRONG BY ADDERS USING 
THE VIRTUAL ADDR. AND KIPAR4 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
BR 8$" * 000742 

SET LOOP ON ERROR POINTER TO 10$ 
LOAD PHYSICAL ADDR. PBA INTO RO 
LOAD VIRTUAL ADDR. VBA INTO R1 
LOAD TEST PATTERN INTO R2 
LOAD R4 WITH PAR VALUE 
LOAD KERNEL PAR 4 BITS <11:00> 
SAVE CONTENTS AT TEST LOCATION 
TURN ON "DESTINATION-ONLY-RELOCATION- 
LOAD 125257 USING ADDER CHIPS ( PAR4 + VIRT ADDR.) 
READ 125257 BACK WITHOUT USING MEM. MGMT. 
TURN OFF MEMORY MGMT. MAINT. MODE 
RESTORE ORIGINAL CONTENTS TO TEST LOC. 
WAS SAME PATTERN READ BACK THAT WAS 
WRITTEN USING "DEST-ONLY-RELOC."? 
BRANCH IF YES 

SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
GO FORM PHYSICAL ADDRESS FOR TYPING 
TEST LOCATION DID NOT HAVE PATTERN 
THAT SHOULD HAVE BEEN WRITTEN TO IT. 
APPARENTLY PHYSICAL ADDR. WAS 
FORMED WRONG BY ADDERS USING 
THE VIRTUAL ADDR. AND KIPAR4 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
"BR 10$" ■ 000742 



skm- "svu&yw" MACYn 3 ?;r S2, * E K^ x&s ™"™ «„■,,«, 



SEQ 0055 



2610 


025132 






2611 


025132 


012737 


024456 001110 


2612 








2613 








2614 








2615 








2616 








2617 








2618 








2619 








2G20 








2621 








2622 








2623 








2624 








2625 








2626 








2627 








2628 








2629 








2630 








2631 








2632 








2633 








2634 








2635 








2636 








2637 


025140 


000004 




2G38 








2539 


025142 


005037 


177776 


2640 


025146 


012704 


000577 


2641 


025152 


012705 


000600 


2642 


025156 


010437 


172350 


2643 


025162 


010J37 


172352 


2644 


025166 


012700 


177640 


2645 


025172 


005001 




2646 


025174 


012702 


000007 


2647 


025200 


010120 




2648 


025202 


062701 


000200 


2649 


025206 


077204 




2650 


025210 


012710 


007600 


2651 


025214 


012700 


177600 


2652 


025220 


012701 


077406 


2653 


025224 


012702 


000010 


2554 


025230 


010120 




2655 


025232 


077202 




2656 


025234 


105037 


177610 


2657 


025240 


105037 


177612 


2658 


025244 


010537 


177650 


2659 


025250 


010437 


177652 


2660 


025254 


012737 


000001 177572 


2661 


025262 


012737 


025314 001110 


2662 


025270 


012737 


025526 000250 


2663 


025276 


013737 


177776 001 17S 


2664 


025304 


012700 


100100 


2665 


025310 


012701 


120000 



MOV #1$,$LPERR -.RESET LOOP ON ERROR POINTER TO 1$ 

********************************************************** 
27 READ AND WRITE WHILE IN RELOCATE MODE 

THE FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN 
READS AND WRITES LOCATIONS BETWEEN PHYSICAL ADDRESSES 
060000-067600. ONE LOCATION IN EVERY BLOCK (32. WORDS) 
IS WRITTEN USING PAR4 AND READ USING PARS. THIS IS 
DONE IN BOTH USER AND KERNEL MODES. THE USER PAR/PDR S 
ARE SETUP AT THE BEGINNING OF THE TEST AND ONCE MEMORY 
MANAGEMENT IS TURNED ON IT IS LEFT ON FOR THE REST OF ™E 
OF THE PROGRAM. THE "MODE" INPUT TO THE PAR/PDR ADDRESS MUX 
IS CHECKED BY READING AND WRITING IN USER MODE. REMEMBER 
ALSO, THAT SINCE MEMORY MANAGEMENT IS ON (IN RELOCATE 
MODE) THE PROGRAM ITSELF IS USING ITS VIRTUAL ADDRESSES AND 
THE PAR/PDR'S TO EXECUTr. 

WHILE TESTING IN KERNEL MODE. USER PAGFS 4 8 5 ARE MAPPED 
NON-RESIDENT WITH DIFFERENT PAR VALUES THAN THE KERNEL 
PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR'S ARE BEING 
USED WHEN IN KERNEL MODE (AND VICE VERSA WHILE TESTING IN 
USER MODE). IF A MEM. MGMT. TRAP OCCURS. THE PROGRAM GOES 
TO 8$ WHERE THE TRAP IS REPORTED. 

**************************** 



;START IN KERNEL MODE 

;LOAD R4 WITH VALUE FOR PAR4 

;LOAD R5 WITH VALUE FOR PAR5 

;LOAD KERNEL PAR4 

{LOAD KERNEL PAR5 

;LOAD ADDRESS OF FIRST USER PAR IN RO 

;CLEAR R1 

;LOAD LOOP COUNTER WITH A 7 

;MAP USER PAR'S TO PAGES 0-6 (4K EACH) 

JLOOP UNTIL UIPAR0-UIPAR6 ARE LOADED 

;MAP UStR HAR7 TO THE I/O PAGE 

;LOAD ADDRESS OF FIRST USER PDR IN RO 

;LOAD PDR DATA INTO R1 

;LOAD LOOP COUNTER WITH AN 8 

;MAP ALL 8 PAGES 128 BLOCKS. UPWARD 

".XPANDABLE, READ/WRITE 
;MAP USER SPACE NON-RESIDENT WHILE 

TESTING KERNEL SPACE 
;MAP USER PAR'S OPPOSITE OF KIPAR'S 

•TURN ON MEMORY MANAGEMENT (RELOCATE MODE) 

•SET LOOP ON ERROR POINTER TO 5$ 

•SET M. M. TRAP VECTOR TO B$ 

;SAVE PSW IN CASE OF ERROR 

*PUT VIRTUAL ADDR. THAT USER PAR4 IN RO 

;PUT VIRTUAL ADDR. THAT USES PAR5 IN Rl 



..***«************************** 


TST27: 


SCOPE 




1$: 


CLR 


PSW 




MOV 


#577, R4 




MOV 


#600, R5 




MOV 


R4.KIPAR4 




MOV 


R5.KIPAR5 




MOV 


#UIPAR0,R0 




CLR 


R1 




MOV 


#7,R2 


2$: 


MOV 


R1,(R0)+ 




ADD 


#200, R1 




SOB 


R2,2$ 




MOV 


#7600, (RO) 




MOV 


#UIPDR0,R0 




MOV 


#77406, R1 




MOV 


M0.R2 


3$: 


MOV 


R1 ,(R0) + 




SOB 


R2,3$ 




CLRB 


UIPDR4 




CLRB 


UIPDR5 




MOV 


R5.UIPAR4 




MOV 


R4.UIPAR5 




MOV 


#1 ,SR0 




MOV 


#5$,$LPERR 




MOV 


#8$.MMVEC 


4$: 


MOV 


PSW,$TMP0 




MOV 


#100100, RO 




MOV 


#120000, Rl 
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SEO 0036 



2666 


025314 


010010 






2667 


025316 


01 1 102 






2668 


025320 


020002 






2669 


025322 


001411 






2670 


025324 


010137 


001404 




2671 


025330 


010037 


001402 




2672 


025334 


004737 


036354 




2673 


025340 


104020 






2674 










2675 










2676 










2677 










2678 










2679 


025342 


01 3 "00 


001402 




2680 


025346 


062700 


000100 




2681 


025352 


062701 


000100 




2682 


025356 


020127 


127700 




2683 


025362 


001354 






2684 


025364 


032737 


140000 


177776 


2685 


025372 


001026 






2586 


025374 


010437 


177650 




2587 


025400 


010537 


177652 




2688 


025404 


112737 


000006 


177610 


2689 


025412 


112737 


000006 


177612 


2690 


025420 


105037 


172310 




2691 


025424 


105037 


172312 




2692 


025430 


010537 


172350 




2693 


025434 


010437 


172352 




2694 


025440 


012737 


140000 


177776 


2695 


025446 


000713 






2696 


025450 


005037 


177776 




2697 


025454 


012737 


077406 


172310 


2698 


025462 


012737 


077406 


172312 


2699 


025470 


010537 


172350 




2700 


025474 


010537 


172352 




2701 


025500 


010537 


177650 




2702 


025504 


010537 


177652 




2703 


025510 


012737 


002400 


000250 


2704 


025516 


012737 


025142 


001110 


2705 


025524 


000427 






2706 










2707 


025526 


012637 


001356 




2708 


025532 


012637 


001360 




2709 










2710 










2711 










2712 


025536 


010037 


001402 




2713 


025542 


004737 


036354 




2714 


025546 


013737 


177572 


001366 


2715 


025554 


013737 


177576 


001370 


2716 


025562 


042737 


160000 


177572 


2717 


025570 


104052 






2718 










2719 










2720 










2721 











5$: 



MOV 


R0,(R0) 


MOV 


(R1) ( R2 


CMP 


R0 f R2 


BEQ 


6$ 


MOV 


R1.VIRT2 


MOV 


R0.VIRT1 


J5R 


PCFORMPA 


ERROR 


20 



MOV 


VIRT1 ,R0 


ADD 


#100, RO 


ADD 


#100, R1 


CMP 


R1, (11127700 


BNE 


5$ 


BIT 


#140000, PSW 


BNE 


7$ 


MOV 


R4.UIPAR4 


MOV 


R5,UIPAR5 


MOVB 


#6,UIPDR4 


MOVB 


,"6,UIPDR5 


CLRB 


KIPDR4 


CLRB 


KIPDR5 


MOV 


R5.KIPAR4 


MOV 


R4.KIPAR5 


MOV 


#140000, PSW 


BR 


4$ 


CLR 


PSW 


MOV 


#77406, KIPDR4 


MOV 


#77406, KIPDR5 


MOV 


R5.KIPAR4 


MOV 


R5.KIPAR5 


MOV 


R5.UIPAR4 


MOV 


R5.UIPAR5 


MOV 


#MGMERR,MMVEC 


MOV 


#1$,$LPERR 


BR 


TST30 


MOV 


(KSP)+,TRAPPC 


MOV 


(KSPJ+.TRAPPS 


MOV 


R0,VIRT1 


JSR 


PCFORMPA 


MOV 


SRO.WASSRO 


MOV 


SR2.WASSR2 


BIC 


#160000, SRO 


ERROR 


52 



WRITE TO TEST LOG. USING PAR4 

READ THE SAME LOG., BUT USING PAR5 

DID WE READ WHAT WE WROTE? 

BRANCH IF YES 

SAVE VIRTUAL ADDR. THAT SELECTED PAR5 

SAVE VIRTUAL ADDR. THAT SELECTED PAR4 

GO FORM PHYSICAL ADDRESS BEING USED 

READING LOC. USING PAR5 AND A VIRT. 

ADDR. DID NOT FIND DATA WRITTEN WHEN USING 

PAR4 AND VIRT. ADDRESS. 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000765 

RESTORE VBA IN RO 

CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 

WERE BLOCKS FROM 60000-676000 ALL TRIED? 

BRANCH IF NO 

HAVE WE DONE TEST IN USER MODE YET? 

BRANCH IF YES 

LOAD USER PAR4 

LOAD USER PAR5 

MAP USER SPACE R/W TO TEST IT 

MAP KERNEL SPACE NON-RESIDENT WHILE 

TESTING USER SPACE 
MAP KERNEL PAR'S OPPOSITE UIPAR'S 

GO TO USER MODE 

GO BACK AND READ/WRITE IN USER MODE 
GO BACK TO KERNEL MODE BEFORE LEAVING 
REMAP KERNEL PAGES READ/WRITE 

MAP KERNEL AND USER PAR'S 4 & 5 
BACK TO 12-16K 



RESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE 
RESET LOOP ON ERROR POINTER TO 1$ 
;G0 TO NEXT TEST 

SAVE PC & PS OF TRAP 

PROGRAM WILL TRAP TO HERE IF TRY 

TO USE USER PDR'S WHEN IN KERNEL MODE 

OR KERNEL PDR'S WHEN IN USER MODE 

SAVE VIRTUAL ADDRESS FOR ERROR REPORT 

GO FORM THE PHYSICAL ADDRESS BEING USED 

SAVE SRO & SR2 FOR ERROR REPORT 

CLEAR ERROR BITS IN SRO 

M.M. TRAP WHILE IN RELOCATE MODE - 

REFERENCED WRONG SET OF PDR'S 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

A "NOP" ■ 000240 
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SEO 0037 



2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 



025572 013746 001360 
025576 013746 001356 
025602 000002 



025604 
025606 
025606 
025612 
025616 
025622 
025626 
025630 
025632 
025636 
025642 
025646 
025654 
025660 
025664 
025670 
025672 
025674 
025676 
025702 
025704 



000004 

004737 
012702 
012700 
012701 
010120 
077202 
012705 
012704 
012703 
012737 
012700 
012702 
012701 
010120 
077202 
01 1313 
031527 
001002 
104021 



025714 
025720 



012700 
031027 



036002 
000004 
172346 
000600 



172300 
000010 
017776 
025654 
172300 
000010 
077406 



025706 000422 
025710 012702 



025724 001403 

025726 020500 

025730 001401 

025732 104022 



000010 
172300 
000100 



MOV 
MOV 
RTI 



TRAPPS.-(KSP) 
TRAPPC.-(KSP) 



;PUT PC & PS OF TRAP ON STACK 
j RETURN TO TEST 



J******************************* 
*TEST 30 W-BIT LOGIC TEST, 



i****** • ****#i| 

KERNEL PDR'S 



****************** 



THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
(VBA'S - 17776,37776,57776,77776,117776,137776,157776, & 1.77776 
& PBA'S CONSTRUCTED ■ 17776,37776,57776,77776,77776, 
77776,77776, & 777776 RESPECTIVELY). 

WHICH SHOULD CAUSE THE "W-BIT" TO SET IN EACH OF THE 
EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS. THE PDR'S 
ARE CHECKED TO SEE THAT IT'S W-BIT DOES SET WHEN THE 
PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-BIT 
DOES NOT SET IN ANY OF THE OTHER PDR'S. KERNEL PDR'S 3,4,5.6 
ARE MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-BIT 
SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
ARE BEING CHECKED. 
*************************************************************** 
TST30! SCOPE 



1$: 



4$: 



6$: 



JSR 


PC, TOFF 


MOV 


#4,R2 


MOV 


#KIPAR3,R0 


MOV 


#600, R1 


MOV 


R1 ,(R0) + 


SOB 


R2,2$ 


MOV 


#KIPDR0,R5 


MOV 


#10,R4 


MOV 


#17776, R3 


MOV 


#3S,$LPERR 


MOV 


#KIPDRO,RO 


MOV 


#10 f R2 


MOV 


#77406, R1 


MOV 


R1,(R0)+ 


SOB 


R2,4$ 


MOV 


(R3),(R3) 


BIT 


(R5),#WBIT 


BNE 


5$ 


ERROR 


21 


BR 


8$ 


MOV 


#10, R2 


MOV 


#KIPDR0,R0 


BIT 


(RO),#WBIT 


BEQ 


7$ 


CMP 


R5,R0 


BEQ 


7$ 


ERROR 


22 



TURN T-BIT TRAPPING OFF FOR THIS TEST 

SET LOOP COUNTER TO 4 

LOAD ADDRESS OF PARS INTO RO 

LOAD "12-16K" PAR VALUE INTO R1 

MAP PARS 3-6 TO 12-16K 

LOOP TIL ALL 4 OF THEM LOADED 

LOAD ADDRESS OF FIRST PDR TO BE TESTED IN R5 

SET LOOP COUNTER TO B 

INITIALIZE VIRTUAL ADDRESS TO BE IN R3 

SET LOOP ON ERROR POINTER TO 3$ 

LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 

SET LOOP COUNTER TO 8 

PUT "W-BIT OFF DATA" INTO R1 

CLEAR ALL W-BITS BY WRITING TO ALL PDRS 

LOOP UNTIL ALL OF THEM SETUP 

DO "DATO" TO VIRTUAL ADDR. -SETTING A W-BIT 

DID THAT CAUSE W-BIT TO BE SET? 

BRANCH IF YES 

W-BIT DID NOT GET SET IN PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" * 000763 

SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 

SET LOOP COUNTER TO 8 

LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 

DID W-BIT IN OTHER PDRS REMAIN CLEAR? 

BRANCH IF YES m 

IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 

BRANCH IF YES 

W-BIT GOT SET IN MORE THAN ONE PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 
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SEO 0058 






2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2003 
2804 
2305 
2806 
2807 
2908 
2809 
2810 
2311 
2812 
2313 
2314 
2815 
2816 
2817 
2818 
2819 
2320 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2B28 
2329 
2330 
2e31 
2832 
2333 



025734 
025740 
025742 
025744 
025750 
025752 



025754 
025760 
025764 
025766 
025774 



062700 000002 

07721 1 

010115 

031527 000100 

001401 

104023 



062705 000002 

062703 020000 
077445 

012737 025606 

004737 036036 



026000 
026002 
026010 
026014 
026020 
026024 
026030 
026032 
026034 
026040 
026044 
02B050 
026056 
026062 
026066 
026072 
026074 
026076 
026100 
026104 
026106 



000u04 
012737 
004737 
012702 
012700 
012701 
010120 
077202 
012705 
012704 
012703 
012737 
012700 
012702 
012701 
010120 
077202 
01 1313 
031527 
001002 
104021 



ADD 


#2,R0 


SOB 


R2,6$ 


MOV 


R1 ,(R5) 


BIT 


(R5),#WBIT 


BEQ 


8$ 



ADD 
ADD 
SOB 
MOV 
JSR 



*TEST 31 



#2 R5 
#20000, R3 
R4,3$ 

#1$,$LPERR 
PC, TON 

****************** 
W-BIT LOGIC TEST, 



"BR 3V = 000750 

POINT RO TO NEXT PDR TO BE CHECKED 

LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 

WRITE TO THE PDR TESTED TO CLEAR W-BIT 

DID WRITING PDR CLEAR THE W-BIT? 

BRANCH IF YES 

W-BIT DID NOT CLEAR BY WRITING THE PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" ■ 000740 

POINT R5 TO THE NEXT PDR TO BE TESTED 

CHANGE VIRT. ADDR TO REF. NEXT PDR 

LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

TURN T-BIT BACK ON FOR NEXT TEST 



<*********** 
USER PDR'S 



i***************** 



140000 
036002 
000004 
177646 
000600 



177600 
000010 
017776 
026056 
177600 
000010 
077406 



177776 1$: 



THIS TEST WRITES TO EIGH 
(VBA'S = 17776,37776,577 
& PBA'S CONSTRUCTED « 17 
77776,77776, & 777776 RE 
WHICH SHOULD CAUSE THE 
EIGHT (8) USER PAGE DESC 
ARE CHECKED TO SEE THAT 
PAGE IT IS MAPPED TO IS 
DOES NOT SET IN ANY OF Tl 
ARE MAPPED TO 12-16K FOR 
SHOULD BE CLEARED WHEN Tl 
W-BIT PORTION OF THE PDR 
ARE BEING CHECKED. 

ft**!**********************!**** 

TST31! SCOPE 



MOV 


#140000, PSW 


JSR 


PC, TOFF 


MOV 


#4,R2 


MOV 


#UIPAR3,R0 


MOV 


#600, R1 


MOV 


R1 ,(R0) + 


SOB 


R2,2$ 


MOV 


#UIPDR0,R5 


MOV 


#10, R4 


MOV 


#17776, R3 


MOV 


#3$,$LPERR 


MOV 


#UIPDRO,RO 


MOV 


010, R2 


MOV 


#77406, R1 


MOV 


R1 , (R0) + 


SOB 


R2,4$ 


MOV 


(R3),(R3) 


BIT 


(R5),#WBIT 


BNE 


5$ 


ERROR 


21 



(8) DIFFERENT VIRTUAL ADDRESSES 
76,77776,117776,137776,157776. & 177776 
776,37776,57776,77776.77776, 
SPECTIVELY) . 

W-BIT" TO SET IN EACH OF THE 
RIPTOR REGISTERS. THE PDR'S 
IT'S W-BIT DOES SET WHEN THE 
WRITTEN TO AND THAT THE W-BIT 
HE OTHER PDR'S. USER PDR'S 3.4,5.6 

THIS TEST. ALSO THE W-BIT 
HE PDR IS WRITTEN TO. THE 

S AND THE PAR/PDR ADRS MUX 



GO TO USER MODE FOR THIS TEST 

TURN T-BIT TRAPPING OFF FOR THIS TEST 

SET LOOP COUNTER TO 4 

LOAD ADDRESS OF PAR3 INTO RO 

LOAD "12-16K" PAR VALUE INTO R1 

MAP PARS 3-6 TO 12-16K 

LOOP TIL ALL 4 OF THEM LOADED 

LOAD ADDRESS OF FIRST PDR TO BE TESTED IN R5 

SET LOOP COUNTER TO 8 

INITIALIZE VIRTUAL ADDRESS TO BE IN R3 

SET LOOP ON ERROR POINTER TO 3$ 

LOAD ALJR. OF FIRST PDR TO BE SETUP IN RO 

SET LOOP COUNTER TO 8 

PUT "W-BIT OFF DATA" INTO R1 

CLEAR ALL W-BITS BY WRITING TO ALL PDRS 

LOOP UNTIL ALL OF THEM SETUP 

DO "DATO" TO VIRTUAL ADDR . -SETTING A W-BIT 

DID THAT CAUSE W-BIT TO BE SET? 

BRANCH IF YES 

W-BIT DID NOT GET SET IN PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 
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5$: 
6$: 



27-JUN-78 09:33 PAGf 60 
-BIT LOGIC TEST, USER PDR'S 



SEO 0059 



2834 








2035 


0261 10 


000422 




2836 


0261 12 


012702 


000010 


2837 


0261 16 


012700 


177600 


2838 


026122 


031027 


000100 


2839 


026126 


001403 




2840 


026130 


020500 




2841 


026132 


001401 




2842 


026134 


104022 




2843 








2844 








2845 








2846 


026136 


062700 


000002 


2847 


026142 


077^11 




2048 


026144 


0101 15 




2849 


026146 


031527 


000100 


2050 


026152 


001401 




2851 


026154 


104023 




2852 








2853 








2854 








2855 


026156 


062705 


000002 


2856 


026162 


062703 


020000 


2857 


026166 


077445 




2058 


026170 


012737 


026002 001110 


2859 


026176 


004737 


036036 


2860 


026202 


005037 


177776 


2061 








2862 








2863 








2864 








2865 








2866 








2867 








2868 








2069 








2870 








2871 








2372 








2873 


026206 


000004 




2074 








2875 


026210 


004737 


036002 


2876 


026214 


012701 


077406 


2877 


026220 


012737 


026226 001110 


2878 


026226 


010137 


172316 


2879 


026232 


013700 


177572 


2880 


026236 


010037 


177572 


2081 


026242 


013702 


172316 


2882 


026246 


020102 




2883 


026250 


001401 




2884 


026252 


104024 




2885 








2886 








2887 








2388 


026254 


012737 


026254 001110 


2889 


026262 


010137 


172306 



BR 


8$ 


MOV 


#10, R2 


MOV 


#UIPDR0,R0 


BIT 


(RO),#WBIT 


BEQ 


7$ 


CMP 


R5.R0 


BEQ 


7$ 


ERROR 


22 



ADD 


#2,R0 


SOB 


R2,6$ 


MOV 


R1 ,(R5) 


BIT 


(R5),#WBIT 


BEQ 


B$ 


ERROR 


23 



8$: 



ADD 


#2,R5 


ADD 


#20000, R3 


SOB 


•'4,3$ 


MOV 


#1$,$LPERR 


JSR 


PC, TON 


CLR 


PSW 


********** 


************* 


iST 32 


TEST "W-BI 



"BR 3$" = 000763 

SKIP CHECKING OTHER PDR ' S-ERROR WILL SET W-B 

SET LOOP COUNTER TO 8 

LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 

DID W-BIT IN OTHER PDRS REMAIN CLEAR? 

BRANCH IF YES 

IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 

BRANCH IF YES 

W-BIT GOT SET IN MORE THAN ONE PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000750 

POINT RO TO NEXT PDR TO BE CHECKED 

LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 

WRITE TO THE PDR TESTED TO CLEAR W-BIT 

DID WRITING PDR CLEAR THE W-BIT? 

BRANCH IF YES 

W-BIT DID NOT CLEAR BY WRITING THE PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" - 0C0740 

POINT R5 TO THE NEXT PDR TO BE TESTED 

CHANGE VIRT. ADDR TO REF. NEXT PDR 

LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 

RESET LOOP ON ERROR POINTER TO 1$ 

TURN T-HIT BACK ON FOR NEXT TEST 

BACK TO KERNEL MODE BEFORE LEAVING 



***** 



c****** 



THIS TEST CHECKS TWO SPECIAL CASES WHERE THE W-BIT DOES 

NOT GET SET ON A WRITE. FIRST CASE IS THAT THE W-BIT 

SHOULD NOT SET IN PAGE DESCRIPTOR REG. 7 WHEN WRITING TO 

STATUS REG SRO (KERNEL PDR 7 IS USED). SECOND CASE IS THAT 

THE W-BIT IS NOT SET IF THE "DATO" IS ABORTED DUE TO AN 

ODD ADDRESS ERROR (KERNEL PDR3 & VIRTUAL ADDR 60001 ARE USED). 



TST32: SCOPE 



JSR 


PC, TOFF 


MOV 


#77406, R1 


MOV 


#2$,$LPERR 


MOV 


R1 .KIPDR7 


MOV 


SRO.RO 


MOV 


RO.SRO 


MOV 


KIPDR7.R2 


CMP 


R1 ,R2 


BEQ 


3$ 


ERROR 


24 



MOV 
MOV 



#3$,$LPERR 
R1 .KIPDR3 



TURN OFF T-BIT TRAPPING FOR THIS TEST 

PUT "W-BIT OFF" VALUE FOR PDR IN R1 

SET LOOP ON ERROR POINTER TO 2$ 

LOAD KERNEL PDR 7 TO CLEAR W-BIT 

READ PRESENT CONTENTS OF STATUS REG. 

WRITE PRESENT CONTENTS OF SRO BACK TO ITSELF 

READ CONTENTS OF KIPDR7 INTO R2 

WAS W-BIT LEFT CLEARED? 

BRANCH IF YES 

W-BIT IN KIPDR7 SET WHEN SRO WAS WRITTEN TO 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000765 

SET LOOP ON ERROR POINTER TO 3$ 

LOAD KERNEL PDR3 WITH 77406 TO CLEAR W-BIT 
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SEO 0060 



2B90 
2091 
2092 
2093 
2894 
2895 
2B96 
2897 
2898 
2099 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
291 1 
291 2 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2J21 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 



026266 
026274 
026300 
026304 
026310 
026312 
026314 



026316 
026324 
026332 



012737 
005237 
01 2706 
013702 
020102 
001401 
104025 



012737 
012737 
004737 



026300 
060001 
001100 
172306 



002332 
026210 
036036 



026336 000004 



026340 
026344 
026350 
026354 
026360 
02G364 
026372 
02R400 
026404 
026410 
025414 
026420 
026426 
026432 
026436 
026444 
026446 
026454 
026456 



012700 
010037 
010037 
010037 
01 0037 
01 2737 
012737 

01 2700 

01 2701 
012703 
012702 
012737 
010237 
010237 
012737 
005010 
013737 
00521 1 
104026 



MOV 


#4$,ERRVEC 


INC 


60001 


MOV 


#KERSTK,KSP 


MOV 


i»IPDR3,R2 


CMP 


R1 ,R2 


BEQ 


5$ 


ERROR 


25 



000004 
001110 



MOV 
MOV 
JSR 



#TIMERR,ERRVEC 
#1$,$LPERR 
PC, TON 



SET UP LOC. 4 TO 4$ FOR ODD ADDR. ABORT 

CAUSE ODD ADDRESS ABORT THRU LOC 4 

RESTORE THE STACK POINTER 

READ KIPDR3 INTO R2 

WAS W-B1T LEFT CLEARED? 

BRANCH IF YES 

W-BIT GOT SET DURING AN ODD ADDR. ABORT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000757 

RESTORE NORMAL CPU TRAP ROUTINE TO LOC. 4 

RESET LOOP ON ERROR POINTER TO 1$ 

TURN T-BIT TRAPPING BACK ON 



THE NEXT THREE (3) TESTS CAUSE MEMORY MANAGEMENT ERRORS 

TO CHECK THE ABILITY OF STATUS REGISTER TO RECORD KT 

ERRORS AND THE ABILITY OF STATUS REGISTER 2 TO LOCK UP THE 

VIRTUAL ADDR. OF THE INSTRUCTION THAT CAUSED THE ERROR. 

THE BITS OF SR2 ARE CHECKED AND BITS <15:13>, <6:5>, AND <3:0> 

ARE CHECKED IN SRO. SO THE SRO AND SR2 LOGIC AND THE 

KT ERROR LOGIC ARE CHECKED. 



33 NON-RESIDENT ABORT TEST (ACF=0&4) 

THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
LOGIC BY CAUSING NON-RESIDENT ABORTS IN BOTH KERNEL AND 
USER MODES. PDR 4 IS LOADED WITH ACF'S = 0&4 AND 
THEN PHYSICAL ADDR. 60000 IS ACCESSED TO CAUSE THE ABORT. 



********* 



000600 
172346 
172350 
177646 
177650 
077406 
077406 
060000 
100000 
100011 
077400 
026462 
172310 
177610 
026444 

177776 



TST33! 
1$: 



172306 
177606 



000250 2$: 



001 1 10 
001 176 



3$: 
4$: 



SCOPE 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
INC 
ERROR 



#600, RO 

R0.KIPAR3 

R0.KIPAR4 

R0.UIPAR3 

R0.UIPAR4 

#77406, KIPDR3 

#77406, UIPDR3 

#60000, RO 

#100000,R1 

#10001 1 ,R3 

#77400, R2 

#5$,MMVEC 

R2.KIPDR4 

R2.UIPDR4 

#3$,$LPERR 

(RO) 

PSW,$TMPO 

(R1) 

26 



**** 



;LOAD DATA FOR PAR'S INTO RO 
;MAP KERNEL PAR'S 3&4 TO 12-16K 

;MAP USER PAR'S 354 TO 12-16K 

MAP KERNEL PDR 3 128 BLKS, READ-WRITE 

MAP USER PDR 3 128 BLKS, READ-WRITE 

LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 

LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 

LOAD R3 WITH WHAT SRO SHOULD READ - N.R., KERNEL, P0.4 

LOAD ACF=0 (NON-RESIDENT) PDR VALUE IN R2 

POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 

LOAD ACF TEST VALUE INTO KIPDR4 

LOAD ACF TEST VALUE INTO UIPDR4 

SET LOOP ON ERROR POINTER TO 3$ 

CLEAR PHYS. LOC. 60000 USING PDR3 

SAVE PSW IN CASE OF ERROR 

TRY TO REF. IT USING PDR4 - SHOULD TRAP TO 5$ 

MEM. MGMT. ABORT DID NOT OCCUR 
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2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 



026460 
026462 
026466 
025470 
026472 



026474 
026502 
026510 
026514 
026516 



026520 
026524 
026530 
026532 



026534 
026542 
026550 
026552 
026556 
026564 
026566 
026572 
026574 
026600 
026604 
026610 
026612 
026616 
026624 



000425 
062706 
005710 
001401 
104027 



013737 
013737 
020337 
001401 
104030 



012704 
020437 
001401 
104031 



042737 
032737 
001006 
012703 
012737 
000715 
022702 
001407 
012702 
012703 
005037 
000703 
005037 
012737 
012737 



177572 
177576 
001366 



026454 
001370 



160000 
140000 



100151 
140000 



077404 
100011 
177776 

177776 
026340 
002400 



00136C 
001370 



177572 B$: 
001176 



026632 
026634 



026634 012700 060000 



0011 10 
000250 



BR 


B$ 


ADD 


#4,SP 


TST 


(RO) 


BEQ 


6$ 


ERROR 


27 



MOV 


SRO.WASSRO 


MOV 


SR2.WASSR2 


CMP 


R3.WASSR0 


BEQ 


7$ 


ERROR 


30 



MOV 


#4$,R4 


CMP 


R4.WASSR2 


BEQ 


8$ 


ERROR 


31 



BIC 


#160000, SRO 


BIT 


#140000, STMPO 


BNE 


9$ 


MOV 


#100151 ,R3 


MOV 


#140000, PSW 


BR 


2$ 


CMP 


#77404, R2 


BEQ 


10$ 


MOV 


#77404, R2 


MOV 


#100011 ,R3 


CLR 


PSW 


BR 


2$ 


CLR 


PSW 


MOV 


#1$,$LPERR 


MOV 


#MGMERR,MMVEC 



FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000772 

BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 

RESTORE STACK POINTER 

DID INSTRUCTION GET ABORTED & NOT EXECUTE 

BRANCH IF YES 

INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000764 

READ STATUS REGISTER 

READ STATUS REGISTER 2 

DID SRO REPORT NON-RESIDENT ERROR CORRECTLY? 

BRANCH IF YES 

SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000752 

LOAD P4 WITH WHAT SR2 SHOULD READ 

DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 

BRANCH IF YES 

SR2 DID NOT LOCK VIRTUAL ADDR. OF NON-RES. ERROR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" = 000744 

CLEAR THE ERROR BITS IN SRO 

HAS ACF=0&4 BEEN TESTED IN USER YET 

BRANCH IF YES 

LOAD R3 WITH WHAT SRO SHOULD READ - N.R.. USER, PG.4 

GO TO USER MODE 

REPEAT TEST IN USER MODE 

HAS ACF=4 BEEN TESTED YET? 

BRANCH IF YES 

THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 

LOAD R3 WITH WHAT SRO SHOULD READ-N. R. .KERNEL, PG. 4 

GO BACK TO KERNEL MODE 

GO BACK & TEST ACF=4 IN SAME MODE 

GO BACK TO KERNEL MODE BEFORE LEAVING 

RESET LOOP ON ERROR POINTER TO 1$ 

RESTORE ADDREbS OF NORMAL MEMORY 

MANAGEMENT ERROR ROUTINE TO MMVEC 



******** 



READ-ONLY ABORT TEST (ACF=2) 



THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
LOGIC BY CAUSING READ-ONLY ABORTS IN BOTH KERNEL AND 
USER MODES. PDR 4 IS LOAD WITH ACF=2 AND THEN 
PHYSICAL ADDR. 60000 IS WRITTEN TO CAUSE THE ABORT. 



TST34! 
1$: 



************ 
SCOPE 



#60000, RO 



;KERNEL & USER PAR'S 3 S 4 AND PDR 3 

;ARE SETUP FROM LAST TEST 

;LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
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SEQ 0062 



.) 



3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 



026640 
026644 
026G50 
026654 
026662 
026666 
026672 
026700 
026702 
026710 
026712 



026714 
026716 
026722 
026724 
026726 



026730 
026736 
026744 
026750 
026752 



026754 
026760 
026764 
026766 



026770 
026776 
027004 
027006 
027012 
027020 
027022 
027026 
027034 



012701 
012703 
012702 
012737 
010237 
010237 
012737 
005010 
013737 
005211 
104026 



000425 
062706 
005710 
001401 
104027 



013737 
013737 
020337 
001401 
104030 



012704 
020437 
001401 
104031 



042737 
032737 
001006 
012703 
012737 
000715 
005037 
012737 
012737 



100000 
020011 
077402 
026716 
172310 
177610 
026700 

177776 



000250 2$: 



001110 
001176 



3$: 
4$: 



5$: 



177572 
177576 
001366 



026710 
001370 



160000 
140000 

020151 
140000 

177776 
026634 
002400 



001366 
001370 



177572 
001176 



001110 
000250 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
INC 
ERROR 



BR 

ADD 

TST 

BEQ 

ERROR 



MOV 
MOV 
CMP 
BEQ 
ERROR 



MOV 
CMP 
BEQ 
ERROR 



BIC 

BIT 

BNE 

MOV 

MOV 

BR 

CLR 

MOV 

MOV 



; ****« 

• TEST 



35 



LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 

LOAD R3 WITH WHAT 5R0 SHOULD READ - R/O, KERNEL, P( 

LOAD ACF = 2 (READ-ONLY) PDR VALUE IN R2 

POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 

LOAD ACF=2 INTO KIPDR4 

LOAD ACF=2 INTO UIPDR4 

SET LOOP ON ERROR POINTER TO 3$ 
iCLEAR PHYS. LOC . 60000 USING PDR3 

SAVE PSW IN CASE OF ERROR 

TRY TO WRITE USING PDR4 - SHOULD TRAP T-0 5$ 
;MEM. MGMT. ABORT DID NOT OCCUR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" ■ 000772 

BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 

RESTORE STACK POINTER 

DID INSTRUCTION GET ABORTED & NOT EXECUTE 

BRANCH IF YES 

INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" * 000764 

READ STATUS REG. 

READ STATUS REG. 2 

DID SRO REPORT READ-ONLY ERROR CORRECTLY? 

BRANCH JF YES 

SRO DID NOT REPORT R/O ERROR CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 3$" « 000752 

LOAD R4 WITH WHAT SR2 SHOULD READ 

DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 

BRANCH IF YES 

SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 

FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 

BR 3$" ■ 000744 
;CLEAR THE ERROR BITS IN SRO 
:HAS ACF=2 BEEN TESTED IN USER MODE? 

BRANCH IF YES 

LOAD R3 WITH WHAT SRO SHOULD READ-R/O, USER. PQ.4 
:GO TO USER MODE 

REPEAT TEST IN USER MODE 
;GO BACK TO KERNEL MODE BEFORE LEAVING 

RESET LOOP ON ERROR POINTER TO 1$ 

RESTORE ADDRESS OF NORMAL MEMORY 

MANAGEMENT ERROR ROUTINE TO MMVEC. 
I*************************************************** 
TEST ILLEGAL MODE "01" 



#100000, R1 

#20011 t R3 

#77402, R2 

#5$, MMVEC 

R2.KIPDR4 

R2.UIPDR4 

#3$,$LPERR 

(RO) 

PSW,$TMP0 

(RD 

26 



8$ 

#4,SP 

(RO) 

6$ 

27 



SR0,WASSR0 

0R2.WASSR2 

R3.WASSR0 

7$ 

30 



#4$,R4 

R4.WASSR2 

8$ 

31 



#160000, SRO 

#140000, STMPO 

9$ 

#20151 ,R3 

#140000, PSW 

2$ 

PSW 

#1$,$LPERR 

#MGMERR, MMVEC 



THIS TEST CHECKS TO SEE THAT A 01 IN THE CURRENT MODE BITS OF THE 

PSW WHILE MEMORY MANAGEMENT IS ON IS ILLEGAL. A 

MEMORY MANAGEMENT ABORT SHOULD OCCUR AND STATUS REGISTER 

SHOULD REPORT NON-RESIDENT ABORT, MODE * 01, PAGE « 1 (100043). STATUS 

REGISTER 2 SHOULD LOCKUP THE ADDRESS OF THE INSTRUCTION 

THAT LOADED THE PSW. 
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SEQ 0063 



3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 



027042 
027044 
027052 
027060 
027066 
027070 



027072 
027074 
027100 
027104 

027112 
027116 
027120 



000004 
012737 



; j ***** 

TST35: 
027060 001110 1$J 
012737 027074 000250 
012737 040000 177776 2$: 
000240 
104056 



000424 

012706 001100 

012701 100043 

013737 177572 001366 



************************** 



020137 001366 

001401 

104057 



027122 
027126 
027134 
027140 
027142 



027144 
027152 
027160 



012701 
013737 



027060 
177576 



020137 001370 
001401 



042737 160000 177572 5$! 
012737 002400 00025C 
012737 027044 001110 



SCOPE 

MOV 

MOV 

MOV 

NOP 

ERROR 



BR 
MOV 
MOV 
MOV 

CMP 
BEQ 
ERROR 



MOV 
MOV 
CMP 
BEQ 
ERROR 



BIC 
MOV 
MOV 



*2$,$LPERR 
#3$, MMVEC 
#40000, PSW 



5$ 

#KERSTK,SP 
#100043, R1 
SRO.WASSRO 

R1 .WASSRO 

4$ 
57 



#2$,R1 

SR2.WASSR2 

R1.WASSR2 

5$ 

36 



#160000, SRO 
#MGMERR, MMVEC 
#1$,$LPERR 



;SET LOOP ON ERROR POINTER TO 2$ 

;LOAD MEM. MGMT. TRAP VECTOR WITH 3$ 

;SET 01 IN PSW CURRENT MODE BITS 

; FETCH OF THIS INSTRUCTION SHOULD CAUSE ABORT 

; ILLEGAL MODE 01 NOT ABORTED 

; FOR A TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

; "BR 2$" = 000773 

•.BRANCH AROUND SRO & SR2 CHECKS 

;RESTORE STACK POINTER 

JLOAD EXPECTED CONTENTS OR SRO INTO R1 

;READ CONTENTS OF SRO 

DID SRO REPORT ILLEGAL MODE CORRECTLY? 

BRANCH IF YES 

SRO DID NOT REPORT NR ABORT, PG*1 . MODE»01 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000757 

LOAD EXPECTED CONTENTS OF SR2 INTO R1 

READ CONTENTS OF SR2 

DID SR2 LOCKUP VIRT. ADDR OF ABORTED INST. 

BRANCH IF YES 

SR2 DID NOT LOCKUP VIRT. ADDR. OF ILL. MODE INST. 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000746 

CLEAR POSSIBLE ERROR BITS IN SRO 

RESTORE MEM. MGMT. ABORT VECTOR 

RESET LOOP ON ERROR POINTER TO 1$ 



.******« 



********* 



********* 



*********** 



THE NEXT TWO (2) TESTS WILL BE CHECKING THE PAGE LENGTH 
COMPARATORS AND SOME MORE OF THE KT ERROR DETECTION 
AND STATUS LOGIC. THE PAGE LENGTH FIELD (PLF) IN KERNEL 
PDR 4 IS VARIED AND FOR EVERY PLF, THREE (3) VIRTUAL 
ADDRESSES ARE READ. WHILE USING BOTH UPWARD & DOWNWARD PAGE 
EXPANSION, ONE OF THOSE THREE VIRTUAL ADDRESSES WILL CAUSE A 
"PAGE LENGTH ABORT" WHILE THE OTHER TWO WON'T. 

STATUS REGISTER & 2 ARE CHECKED WHEN THE PAGE LENGTH 
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SEQ 0064 



31 14 
3115 
3116 
31 17 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 



027166 
027170 
027176 
027204 
027210 
027214 
027222 
027226 
027234 
027240 
027242 
027246 
027254 
027260 
027262 
027266 
027272 
027274 
027302 
027310 
027312 



027314 
027316 
027322 
027330 
027336 
027342 
027346 
027350 



000004 
012737 
012737 
012700 
012704 
012737 
010437 
012737 
012706 
01 1001 
062700 
012737 
012706 
01 1001 
062700 
020027 
001470 
012737 
012737 
01 1001 
104033 



000424 
012706 
013737 
013737 
012702 
020237 
001401 
104034 



ABORT DOES OCCUR TO SEE THAT THE ABORT IS REPORTED AND THAT 
THE VIRTUAL ADDRESS OF THE INSTRUCTION THAT CAUSED THE ABORT 
IS LOCKED UP. 



J*********!)!********.******************* 



***#****#*********** 



36 PAGE LENGTH FAULTS-UPWARD EXPANSION 

THIS TEST VARIES THE PAGE LENGTH FIELD (PLF)'lN KERNEL PDR 4 
FROM 1 TO 177 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA'S) 
ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
NO ABORT SHOULD OCCUR. WHEN VBA <12:6> IS GREATER THAN PDR <14:8>, 
A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
THE PAGE EXPANSION DIRECTION IN THIS TEST IS UPWARD. (THE ED BIT 
(BIT 3) OF PDR 4 ■ 0). 



077406 
077406 
100000 
000406 
027406 
172310 
027234 
001100 

000100 
027254 
001100 

000100 
117700 

027310 
027316 



001100 
177572 
177576 
040011 
001366 



172306 
172312 



000250 
001110 



001110 
000250 



001366 
001370 



TST36: SCOPE 

1$: MOV 
MOV 
MOV 
MOV 

2$: MOV 
MOV 
MOV 

3$: MOV 
MOV 
ADD 
MOV 

4$: MOV 
MOV 
ADD 
CMP 
BEQ 
MOV 
MOV 

5$: MOV 

ERROR 



BR 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 



#$**$********«$#*$**** 



#77406, KIPDR3 

#77406, KIPDR5 

#100000, RO 

#406, R4 

#9$,MMVEC 

R4.KIPDR4 

#3$,$LPERR 

#KERSTK,KSP 

(R0),R1 

#100, RO 

#4$,$LPERR 

#KERSTK,KSP 

(R0),R1 

#100, RO 

RO, #117700 

10$ 

#5$,$LPERR 

#6$,MMVEC 

(R0),R1 

33 



8$ 

#KERSTK,KSP 

SRO.WASSRO 

SR2.WASSR2 

#40011 ,R2 

R2,WASSR0 

7$ 

34 



027352 012703 027310 



7$: 



#5$,R3 



MAKE SURE PDR3 IS DESCRIBED AS R/W 

MAKE SURE PDR5 IS DESCRIBED AS R/W 

LOAD VIRTUAL ADDR. TO SELECT PDR4 INTO RO 

LOAD FIRST PDR VALUE IN R4 (PLF*1, ACF*6) 

SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 

LOAD KIPDR4 WITH PAGE LENGTH VALUE 

SET LOOP ON ERROR POINTER TO 3$ 

MAKE SURE STACK POINTER IS ALL SET UP 

ACCESS VIRTUAL ADDR. (VBA < PLF - NO ABORT) 

FORM NEXT VIRTUAL ADDRESS IN RO 

SET LOOP ON ERROR POINTER TO 4$ 

MAKE SURE STACK POINTER IS ALL SET UP 

ACCESS VIRTUAL ADDR. (VBA = PLF - N*0 ABORT) 

FORM NEXT VIRTUAL ADDR IN RO 

HAVE ALL PLF'S BEEN TESTED YET? 

BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 

SET LOOP ON ERROR POINTER TO 5$ 

SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 

ACCESS VIRTUAL ADDR. (VBA > PLF - ABORT TO 6$) 

EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" = 000776 

BRANCH AROUND ABORT CHECKS 

RESTORE STACK POINTER FOLLOWING ABORT 

READ M.M. STATUS REG. 

READ M.M. STATUS REG. 2 

PUT EXPECTED SRO CONTENTS IN R2 

DID SRO REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 

BRANCH IF YES 

SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000757 

PUT EXPECTED SR2 CONTENTS IN R3 
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SEQ 0065 



3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
318S 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3213 
3219 
3220 
3221 
3222 
3223 
3224 
3225 



027356 
027362 
027364 



027366 
027374 
027400 
027404 

027406 
027412 
027416 
027424 
027432 
027440 



027442 
027446 
027452 

027454 
027462 



020337 
001401 
104035 



042737 
062704 
162700 
000703 

01 2637 
012637 
01 3" 37 
013737 
042737 
104032 



013746 
013746 
000002 

012737 
012737 



160000 
000400 
000100 



001356 
001360 
177572 
177576 
160000 



001360 
001356 



027170 
002400 



027470 
027472 
027476 
027502 
027510 
027514 
027522 
027526 
027530 
027534 
027542 
02754G 
027550 
027554 
027560 



177572 8$: 



000004 
012700 
012704 
012737 
010437 
012737 
012706 
01 1001 
162700 
012737 
012706 
01 1001 
162700 
020027 
001470 



9$: 



001366 
001370 
177572 



001110 10$: 
000250 



CMP 
BEQ 
ERROR 



BIC 
ADD 
SUB 
BR 

MOV 
MOV 
MOV 
MOV 
BIC 
ERROR 



MOV 
MOV 
RTI 

MOV 
MOV 



R3.WASSR2 

8$ 

35 



#160000, SRO 
#400, R4 
#100, RO 
2$ 

(KSP)+,TRAPPC 

(KSP)+,TRAPPS 

SRO.WASSRO 

SR2.WASSR2 

#160000, SRO 

32 



TRAPPS,-(KSP) 
TRAPPC-(KSP) 



#1S,$LPERR 
#MGMERR,MMVEC 



DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 

BRANCH IF YES 

SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" = 000751 

CLEAR ERROR BITS IN SRO 

FORM NEXT PLF VALUE FOR KIPDR4 

FORM FIRST VIRT. ADDR FOR THAT PLF VALUE 

BRANCH BACK AND ACCESS 3 VBA'S FOR 

THE PLF VALUE JUST FORMED 

SAVE PC & PS OF TRAP 

;SAVE CONTENTS OF SRO FOR ERROR 

;SAVE CONTENTS OF SR2 FOR ERROR 

;CLEAR ERROR BITS IN SRO 

;GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 

;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

jA "NOP" n 000240 

;PUT PC & PS OF TRAP ON STACK 

; RETURN FROM UNEXPECTED ABORT 

; RESET LOOP ON ERROR POINTER TO 1S 
{RESTORE NORMAL M.M. TRAP HANDLER 
;ADDRESS TO M.M. TRAP VECTOR 



************ ****************************** **************** 
37 PAGE LENGTH FAULTS-DOWNWARD EXPANSION 

THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR4 

FROM 176 TO AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA'S) 

ARE ACCESSED. WHEN VBA <12:6> IS GREATER THAN OR EQUAL TO PDR <14:8> 

NO PAGE ABORT SHOULD OCCUR. WHEN VBA <12:6> IS LESS THAN PDR <14:8> 

A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 

THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD. (THE ED BIT 

(BIT 3) OF PDR4«1 ). 



***************> 

TST37: SCOPE 



***************** 



******** 



117700 
077016 
027674 
172310 
027522 
001100 

000100 
027542 
001100 

000100 
100000 



000250 2$: 



3$: 



MOV 


#117700, RO 


MOV 


#77016, R4 


MOV 


#9$,MMVEC 


MOV 


R4.KIPDR4 


MOV 


#3$,$LPERR 


MOV 


#KERSTK,KSP 


MOV 


(R0),R1 


SUB 


#100, RO 


MOV 


#4$,$LPERR 


MOV 


#KERSTK,KSP 


MOV 


(R0),R1 


SUB 


#100, RO 


CMP 


RO, #100000 


BEQ 


10$ 



LOAD VIRTUAL ADDR. TO SELECT PDR4 INTO RO 

LOAD FIRST PDR VALUE IN R4 ( PLF=1 76, ACF«6) 

SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 

LOAD KIPDR4 WITH PAGE LENGTH VALUE 

SET LOOP ON ERROR POINTER TO 3$ 

MAKE SURE STACK POINTER IS ALL SET UP 

ACCESS VIRTUAL ADDR. (VBA > PLF - NO ABORT) 

FORM NEXT VIRTUAL ADDRESS IN RO 

SET LOOP ON ERROR POINTER TO 4$ 

MAKE SURE STACK POINTER IS ALL SET UP 

ACCESS VIRTUAL ADDR. (VBA^PLF - NO ABORT) 

FORM NEXT VIRTUAL ADDR. IN RO 

HAVE ALL PLF'S BEEN TESTED YET? 

BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 
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SEO 0066 



3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 



027562 
027570 
027576 
027600 



027602 
027604 
027610 
027616 
027624 
027630 
027634 
027636 



027640 
027644 
027650 
027652 



027654 
027662 
027666 
027672 

027674 
027700 
027704 
027712 
027720 
027726 



027730 
027734 
027740 

027742 
027750 



012737 
012737 
01 1001 
104033 



000424 
012706 
013737 
013737 
012702 
020237 
001401 
104034 



012703 
020337 
001401 
104035 



042737 
162704 
062700 
000703 

012637 
012637 
013737 
013737 
042737 
104032 



013746 
013746 
000002 

012737 
012737 



027576 
027604 



001100 
177572 
177576 
040011 
001366 



027576 
001370 



160000 
000400 
000100 



001356 
001360 
177572 
177576 
160000 



001360 
001356 



027472 
002400 



001110 
000250 



001366 
001370 



001366 
001370 
177572 



001110 
000250 



MOV 


#5$,$LPERR 


MOV 


#6$,MMVEC 


MOV 


fR0),R1 


ERROR 


33 


BR 


8$ 


MOV 


#KERSTK,KSP 


MOV 


SRO.WASSRO 


MOV 


SR2.WASSR2 


MOV 


#4001 1,R2 


CMP 


R2.WASSR0 


BEQ 


7$ 


ERROR 


34 


MOV 


#5$, R3 


CMP 


R3.WASSR2 


BEQ 


8$ 


ERROR 


35 


BIC 


#160000, SRO 


SUB 


#400, R4 


ADD 


#100, RO 


BR 


2$ 


MOV 


(KSP)+,TRAPPC 


MOV 


(KSP)+,TRAPPS 


MOV 


SRO.WASSRO 


MOV 


SR2.WASSR2 


BIC 


#160000, SRO 


ERROR 


32 


MOV 


TRAPPS,-(KSP) 


MOV 


TRAPPC.-(KSP) 


RTI 




MOV 


#1$,$LPERR 


MOV 


#MGMERR,MMVEC 



SET LOOP ON ERROR POINTER TO 5$ 

SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 

ACCESS VIRTUAL ADDR. (VBA < PLF - ABORT TO 6$) 

EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" * 000776 

BRANCH AROUND ABORT CHECKS 

RESTORE STACK POINTER FOLLOWING ABORT 

READ M.M. STATUS REG. 

READ M.M. STATUS REG. 2 

PUT EXPECTED SRO CONTENTS IN R2 

DID SRO REPORT PG. LENGTH ABORT, PG. 4, KERNEL? 

BRANCH IF YES 

SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000757 

PUT EXPECTED SR2 CONTENTS IN R3 

DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 

BRANCH IF YES 

SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000751 

CLEAR ERROR BITS IN SRO 

FORM NEXT PLF VALUE FOR KIPDR4 

FORM FIRST VIRT. ADDR. FOR THAT PLF VALUE 

BRANCH BACK AND ACCESS 3 VBA'S FOR 

THE PLF VALUE JUST FORMED 

SAVE PC a PS OF TRAP 

;SAVE CONTENTS OF SRO FOR ERROR 

{SAVE CONTENTS OF SR2 FOR ERROR 

'.CLEAR ERROR BITS IN SRO 

;GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 

;FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

•A "NOP" = 000240 

;PUT PC & PS OK TRAP ON STACK 

; RETURN FROM UNEXPECTED ABORT 

; RESET LOOP ON ERROR POINTER TO 1$ 
; RESTORE NORMAL M.M. TRAP HANDLER 
{ADDRESS TO M.M. TRAP VECTOR 



J*********************************** 
♦TEST 40 SR2 BIT TEST 



********************** 



THIS TEST CHECKS THE BITS IN MEMORY MANAGEMENT REGISTER 2 BY 

CAUSING "READ-ONLY ABORTS" AT VIRTUAL ADDRESSES BETWEEN 100000 

TO 111000 (PHYSICAL ADDRESSES 060000-071000). KIPDR4 IS USED TO EXECUTE 

THE FOLLOWING FOUR WORDS OF CODE WHICH ARE MOVED THRU MEMORY: 

010727 MOV PC,(PC)+ {THIS INSTRUCTION SHOULD CAUSE A R/0 ABORT 
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SEO 0067 



3282 










* 


000000 




3283 










* 


000137 


JMP $#3$ 


3284 










* 


(ADDR. 


OF 3$) 


3285 










* 






3286 










* 






3287 










• **********##***************i| 


3283 


027756 


000004 




' 


ST40: 


SCOPE 




3289 


027760 


012737 


000600 


172346 


$: 


MOV 


#600,KIPAR3 


3290 


027766 


012737 


000600 


172350 




MOV 


#600,KIPAR4 


3291 


027774 


012737 


077406 


172306 




MOV 


#77406, KIPDR3 


3292 


030002 


012737 


077402 


172310 




MOV 


#77402, KIPDR4 


3293 


030010 


012700 


060000 






MOV 


#60000, RO 


3294 


030014 


012701 


100000 






MOV 


#100000, R1 


3295 


030020 


012737 


030054 


000250 




MOV 


#3$,MMVEC 


3296 


030026 


012737 


030034 


001110 




MOV 


#2$,$LPERR 


3297 


030034 


012720 


010727 




2$: 


MOV 


#010727, (R0)+ 


3298 


030040 


005020 








CLR 


(R0) + 


3299 


030042 


012720 


000137 






MOV 


#000137, (R0)+ 


3300 


030046 


012710 


030054 






MOV 


#3$,(R0) 


3301 


030052 


010107 








MOV 


R1 ,PC 


3302 


030054 


012706 


001100 




3$: 


MOV 


#KERSTK,KSP 


3303 


030060 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3304 


030066 


020137 


001370 






CMP 


R1.WASSR2 


3305 


030072 


001401 








BEQ 


4$ 


3306 


030074 


104036 








ERROR 


36 


3307 
















3308 
















3309 
















3310 


030076 


042737 


160000 


177572 


*$: 


BIC 


#160000, SRO 


3311 


030104 


162700 


000004 






SUB 


#4,R0 


3312 


0301 10 


062701 


000002 






ADD 


#2,R1 


3313 


030114 


020127 


111002 






CMP 


R1 ,#111002 


3314 


030120 


103745 








BLO 


2$ 


3315 
3316 


030122 


012737 


027760 


001110 


5$: 


MOV 


#1$.$LPERR 


3317 


030130 


012737 


077406 


172310 




MOV 


#77406, KIPDR4 


331B 


030136 


012737 


002400 


000250 




MOV 


#MGMERR,MMVEC 


3319 
















3320 
















3321 

















;ITS VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 

;THIS INSTRUCTION IS ALSO MOVED THRU MEMORY 

{IN CASE A R/0 ABORT DOES NOT OCCUR. 

;IN WHICH CASE SR2 WILL NOT CONTAIN CORRECT ADDR. 

********************************** 

BE SURE PAR3 IS MAPPED TO 12-16K 

BE SURE PAR4 IS MAPPED TO 12-16K 

MAP PAGE 3 128 BLOCKS. R/W 

MAP PAGE 4 128 BLOCKS, READ-ONLY 

LOAD RO WITH VIRTUAL ADDR. WHICH USES PDR3 

LOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 

SET M.M. TRAP VECTOR TO 3$ 

SET LOOP ON ERROR POINTER TO 2$ 

LOAD "MOV PC,(PC)+" INSTRUCTION AT ADDR. 

REACHED THRU PDR/PAR 4. 
LOAD "JMP <ps#3$" INSTRUCTION AT VIRT. ADDR. 

IN CASE R/0 VIOL. DOES NOT ABORT 
TRANSFER PROGRAM EXECUTION TO "PAGE 4 INSTRUCTIONS" 
RESTORE STACK POINTER 
READ CONTENTS OF STATUS REG 2 

WAS ADDR. OF "RELOCATED - R/0 ABORT" LOCKED UP? 
BRANCH IF YES 

SR2 DID NOT LOCK UP VIRTUAL ADDR. OF R/0 VIOL. 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
"BR 2$" = 000757 
CLEAR THE ERROR BITS IN SRO 

RESET RO TO POINT TO NEXT VIRT. ADDR. TO LOAD 
FORM VIRTUAL ADDR. THAT SHOULD BE LOCKED UP NEXT 
HAVE ALL VBA'S 100000-111000 BEEN TESTED? 
BRANCH IF NO 

;RESET LOOP ON ERROR POINTER TO 1$ 
; RESTORE PDR4 TO R/W ACCESS 
; RESTORE ADDRESS OF NORMAL M.M. 
{TRAP HANDLER TO M.M. VECTOR 
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SEO 0068 



3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3J42 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 



030144 
030146 
030154 
030162 
030170 
030176 
030204 
030210 
030214 
030216 



030220 
030226 
030234 
030240 
030244 
030246 



030250 
030256 
030264 
030270 
030274 
030300 
030306 
030314 
030322 
030326 
030332 
030340 
030346 
030354 
030356 
030362 
030370 
030372 



000004 
012737 
012737 
012737 
012737 
013737 
012701 
020137 
001401 
104041 



012737 
013737 
012701 
020137 
001401 
104041 



012737 
012737 
005037 
005237 
012706 
013737 
01 3737 
012737 
005237 
012706 
013737 
013737 
023737 
001402 
005237 
023737 
001402 
005237 



.******** 

*TEST 41 



******************* 
MORE CHECKS OF SRO & SR2 



*********** 



************** 



THIS TEST PERFORMS SOME ADDITIONAL CHECKS OF THE SRO & SR2 LOGIC. 

FIRST IT CHECKS THAT SR2 "TRACKS" ALONG ACTING AS A VIRTUAL ADDRESS 

PROGRAM COUNTER. ALSO SRO & SR2 ARE LOCKED UP BY A PAGE LENGTH 

ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/0 ABORT IS CAUSED. 

SRO & SR2 SHOULD NOT BE CHANGED BY THE SECOND ABORT AND THE 

INFORMATION ABOUT THE PAGE LENGTH ABORT- SOULD STILL BE LOCKED UP. 

IN ADDITION A "RESET" IS EXECUTED TO VERIFY THAT SRO IS CLEARED 

AND SR2 IS UNLOCKED BY A RESET. AFTER MEMORY MANAGEMENT IS TURNED BACK ON, 

SR2 IS CHECKED TO SEE THAT IT IS TRACKING AGAIN. 



000600 
000406 
077402 
030176 
177576 
030176 
001370 



030226 
177576 
030226 
001370 



030256 
030274 
001200 
100500 
001100 
177572 
177576 
030326 
120000 
001100 
177572 
177576 
001176 

001200 
001202 



172352 
172310 
172312 
001110 
001370 



001110 
001370 



0011 10 
000250 



001176 
001202 
000250 



001366 
001370 
001366 



TST41: 
1$: 



*********** 



3$: 
4$: 



5$: 
6$: 



001370 9$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEO 

ERROR 



MOV 
MOV 
MOV 
CMP 
BEO 



MOV 
MOV 
CLR 
INC 
MOV 
MOV 
MOV 
MOV 
INC 
MOV 
MOV 
MOV 
CMP 
BEQ 
INC 
CMP 
BEQ 
INC 



06OO.KIPAR5 

#406,KIPDR4 

#77402, KIPDR5 

#2$,$LPERR 

SR2.WASSR2 

#2$,R1 

-11 .WASSR2 

3$ 

41 



#4$,$LPERR 

SR2.WASSR2 

#4$,R1 

R1 .WASSR2 

5S 



41 



#6$,$LPERR 

#7$,MMVEC 

STMP1 

PM 100500 

#KERSTK,KSP 

SRO.STMPO 

SR2.STMP2 

#8$,MMVEC 

0*120000 

#KERSTK,KSP 

SRO.WASSRO 

SR2.WASSR2 

STMPO.WASSRO 

9$ 

STMP1 

$TMP2,WASSR2 

10$ 

STMP1 



*************************** 

MAP KERNEL PAGE 5 TO 12-16K 

SETUP PDR4 FOR PAGE LENGTH ABORT 

SETUP PDR5 FOR R/0 ABORT 

SET LOOP ON ERROR POINTER TO 2$ 

READ SR2 TO SEE IF ITS TRACKING 

PUT EXPECTED VIRTUAL PC IN R1 

DID SR2 CONTAIN VIRTUAL PC AT 2$7 

BRANCH IF YES 

SR2 NOT TRACKING CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000767 

SET LOOP ON ERROR POINTER TO 4$ 

READ SR2 TO SEE IF ITS TRACKING 

PUT EXPECTED VIRTUAL PC IN R1 

DID SR2 CONTAIN VIRTUAL PC AT 4$ 

BRANCH IF YES 

SR2 NOT TRACKING CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" = 000767 

SET LOOP ON ERROR POINTER TO 6$ 

PUT ADDRESS OF 7$ IN M.M. TRAP VECTOR 

CLEAR ERROR INDICATOR 

CAUSE PAGE LENGTH ABORT - TRAP TO 7$ 

RESTORE STACK POINTER AFTER ABORT 

SAVE SRO'S INFORMATION ON PG. LGTH. ABORT 

SAVE SR2'S INFORMATION ON PG. LGTH. ABORT 

PUT ADDRESS OF 8$ IN M.M. TRAP VECTOR 

CAUSE R/0 ABORT - TRAP TO 8$ 

RESTORE STACK POINTER AFTER ABORT 

READ SRO FOLLWOING SECOND KT ABORT 

READ SR2 FOLLOWING SECOND KT ABORT 

IS SRO STILL HOLDING INFO ON FIRST AB0RT7 

BRANCH IF YES 

SET ERROR INDICATOR 

DOES SR2 STILL HOLD PC OF FIRST ABORT? 

BRANCH IF YES 

SET ERROR INDICATOR 
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SEO 0069 



3378 


030376 


005737 


001200 




10$: 


TST 


$TMP1 


3379 


030402 


001401 








BEO 


11$ 


3380 


030404 


104037 








ERROR 


•*7 


3381 
















3382 
















3383 
















3384 


030406 


005037 


001200 




11$: 


CLR 


$TMP1 


3385 


030412 


000005 








RESET 




3386 


030414 


013737 


177572 


001366 




MOV 


SRO.WASSRO 


3387 


030422 


005737 


001366 






TST 


WASSRO 


3388 


030426 


001402 








BEQ 


12$ 


33B9 


030430 


005237 


001200 






INC 


$TMP1 


3390 


030434 


013737 


177576 


001370 


12$: 


MOV 


SR2.WASSR2 


3391 


030442 


022737 


030434 


001370 




CMP 


/M2S.WASSR2 


3392 


030450 


001402 








BEQ 


13$ 


3393 


030452 


005237 


001200 






INC 


$TMP1 


3394 


030456 


005737 


001200 




13$: 


TST 


$TMP1 


3395 


030462 


001401 








BEQ 


14$ 


3396 


030464 


104040 








ERROR 


40 


3397 
















3398 
















3399 
















3400 


030466 


005237 


177572 




14$: 


INC 


SRO 


3401 


030472 


013737 


177576 


001370 


15$: 


MOV 


SR2.WASSR2 


3402 


030500 


012701 


030472 






MOV 


#15$, R1 


3403 


030504 


020137 


001370 






CMP 


R1 .WASSR2 


3404 


030510 


001401 








BEQ 


16$ 


3405 


030512 


104041 








ERROR 


41 


3406 
















3407 
















3408 
















3409 










;*** 


************************* 


3410 
















3411 










• 


ALL CODE WITH A ' ;+ ' 


3412 










• 


ADDED 


TO THE ORIGINAL 


3413 










; 


ARE MADE BY THE PROD 


3414 
















3415 










; *** 


#$*********************** 


3416 
















3417 
















3418 
















3419 


030514 


012737 


030574 


000250 


16$: 


MOV 


#21$,MMVEC 


3420 


030522 


012737 


077400 


172312 




MOV 


#77400, KIPDR5 


3421 


030530 


012737 


030536 


001110 




MOV 


#17$,$LPERR 


3422 


030536 


005037 


001200 




17$: 


CLR 


$TMP1 


3423 


030542 


005237 


130000 




20$: 


:nc 


0*130000 


3424 


030546 


005237 


001200 






INC 


$TMP1 


3425 


030552 


013737 


177572 


001366 




MOV 


SRO.WASSRO 


3426 


030560 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3427 


030566 


104065 








ERROR 


65 


3428 
















3429 
















3430 


030570 


005037 


001200 






CLR 


$TMP1 


3431 


030574 


012706 


001100 




21$: 


MOV 


#KERSTK,KSP 


3432 


030600 


005737 


177572 




22$: 


TST 


SRO 


3433 


030604 


100413 








BMI 


23$ 



WERE SRO OR SR2 CHANGED BY A SECOND ABORT? 

BRANCH IF NO 

ONE OF STATUS REGS. CHANGED BY SECOND ABORT 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 6$" = 000726 

CLEAR ERROR INDICATOR 

EXECUTE A RESET, APPLYING AN "INIT" 

READ SRO 

WAS SRO CLEARED BY THE RESET? 

BRANCH IF YES 

SRO NOT CLEARED BY A RESET 

READ SR2 

WAS SR2 UNLOCKED BY A RESET? 

BRANCH IF YES 

SR2 NOT UNLOCKED BY A RESET 

WERE SRO & SR2 BOTH "RESET" BY A RESET? 

BRANCH IF YES 

SRO OR SR2 NOT "RESET" BY A RESET 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 6$" = 000676 

TURN MEMORY MANAGEMENT BACK ON 

READ SR2 TO SEE IF ITS TRACKING AGAIN 

PUT EXPECTED VIRTUAL PC IN R1 

DID SR2 CONTAIN VIRTUAL PC AT 15$ 

BRANCH IF YES 

SR2 NOT TRACKING CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 6$" ■ 000663 

;************************************** 



DESIGNATION IN THE COMMENT INDICATES THAT IT HAS BEEN 



************************************ 



;+SET UP KTVEC FOR NON-RESIDENT ABORT 

;+SET UP KIPDR5 FOR NR ABORT 

J+SET LOOP ON ERROR POINTER 

J+CLEAR ERROR INDICATOR 

5+CAUSE A NON-RESIDENT ABORT 

;+SET ERROR INDICATOR 

;+READ SRO 

5+READ SR2 

5+NON-RESIDENT ABORT DID NOT OCCUR 



5+CLEAR ERROR INDICATOR 

J+RESTORE KERNEL STACK POINTER 

;+TEST FOR THE NR ABORT IN SRO (BIT 15) 

l+IF SET BRANCH 
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SE9 OeOTO 



3434 


030606 


005237 


001200 






INC 


$TMP1 


3435 


030612 


013737 


177572 


001366 




MOV 


SRO.WASSRO 


3436 


030620 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3437 


030626 


104066 








ERROR 


66 


3438 
















3439 
















3440 


030630 


005037 


001200 






CLR 


$TMP1 


3441 


030634 


023727 


177576 


030542 


23$: 


CMP 


SR2,#20$ 


3442 
















3443 


030642 


001413 








BEQ 


24$ 


3444 


030644 


005237 


001200 






INC 


$TMP1 


3445 


030650 


013737 


177572 


00136C 




MOV 


SRO.WASSRO 


3446 


030656 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3447 


030664 


104067 








ERROR 


67 


3448 
















3449 
















3450 


030666 


005037 


001200 






CLR 


$TMP1 


3451 


030672 


012737 


030732 


000250 


24$: 


MOV 


#25$,MMVEC 


3452 


030700 


005237 


130000 






INC 


##130000 


3453 


030704 


005237 


001200 






INC ■ 


$TMP1 


3454 


030710 


013737 


177572 


001366 




MOV 


SRO.WASSRO 


3455 


030716 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3456 


030724 


104070 








ERROR 


70 


3457 
















3458 
















3459 


030726 


005037 


001200 






CLR 


$TMP1 


3460 


030732 


012706 


001100 




25$: 


MOV 


#KERSTK,KSP 


3461 


030736 


013737 


177576 


001370 




MOV 


SR2.WASSR2 


3462 


030744 


023727 


001370 


030542 




CMP 


WASSR2,#20$ 


3463 
















3464 


030752 


001413 








BEQ 


26$ 


3465 
3466 


030754 


005237 


001200 






INC 


$TMP1 


3467 


030760 


013/37 


177572 


001366 




MOV 


SRO.WASSRO 


3468 


030766 


012737 


030542 


001364 




MOV 


#20$,C0RSR2 


3469 


030774 


104071 








ERROR 


71 


3470 
















3471 
















3472 
















3473 


030776 


005037 


001200 






CLR 


$TMP1 


3474 


031002 


000005 






26$: 


RESET 




3475 


031004 


005737 


177572 






TST 


SRO 


3476 


031010 


001412 








BEQ 


27$ 


3477 
















3478 


031012 


005237 


001200 






INC 


$TMP1 


3479 


031016 


013737 


177572 


001366 




MOV 


SRO.WASSRO 


3480 


031024 


005037 


001362 






CLR 


CORSRO 


3481 


031030 


104072 








ERROR 


72 


3482 
















3483 
3484 
3485 
















031032 


005037 


001200 






CLR 


$TMP1 


3486 


031036 


005237 


177572 




27$: 


INC 


SRO 


3487 


031042 


013737 


177576 


001370 


30$: 


MOV 


SR2.WASSR2 


3488 


031050 


023727 


001370 


031042 




CMP 


WASSR2,#30$ 


3489 


031056 


001405 








BEQ 


31$ 



;+SET ERROR INDICATOR 

5+READ SRO 

5+READ SR2 

;+NR ABORT ERROR DID NOT SET IN SRO (BIT 15) 



5+CLEAR ERROR INDICATOR 

5+TEST THAT SR2 FROZE TO THE VIRTUAL 

5+ADDRESS OF THE NR ABORT INSTR. 

{ + IF EQUAL BRANCH 

{+ELSE ERROR 

J+READ SRO 

5+READ SR2 

;+SR2 DID NOT CONTAIN THE CORRECT ADDRESS 



{+CLEAR ERROR INDICATOR 

;+SET KTVEC FOR 2ND NR ABORT 

{+CAUSE ABORT 

5+SET ERROR INDICATOR 

5+READ SRO 

5+READ SR2 

5+2ND NR ABORT DID NOT OCCUR 



+CLEAR ERROR INDICATOR 

+RESTORE KERNEL STACK 

+READ SR2 

+TEST SR2 FOR VIRTUAL ADDRESS OF 

+0F THE FIRST NON-RESIDENT ABORT 

+IF EQUAL BRANCH 

+ELSE ERROR 

+SET ERROR INDICATOR 

+READ SRO 

+READ CORRECT SR2 VALUE 

+SR2 DID NOT CONTAIN THE VALUE OF 

+THE FIRST NR ABORT 



5+CLEAR ERROR INDICATOR 

5+ISSUE INIT. CONDITIONS 

5+SRO SHOULD BE CLEAR 

;+IF TRUE BRANCH 

5+ELSE ERROR 

5+SET ERROR INDICATOR 

5+READ S^O 

5+SET CORRECT SRO VALUE FOR ERROR MSG 

5+SRO DID NOT CLEAR AFTER INIT. 



5+CLEAR ERROR INDICATOR 
5+TURN MEM MANG ON 
5+READ SR2 

;+IS SR2 TRACKING AGAIN 
5+YES. BRANCH 
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SEQ 0071 



3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 



031060 005237 001200 
031064 012701 031042 
031070 104041 



031072 012737 030146 

031100 012737 077406 

031106 012737 077406 

031114 012737 002400 



INC 
MOV 
ERROR 



001110 31$: MOV 

172310 MOV 

172312 MOV 

000250 MOV 



031122 
031124 
031130 
031136 
031142 
031146 
031154 
031162 
031170 
031176 
031202 
031210 
031216 



031222 
031226 
031230 
031234 



000004 
004737 
012737 
005037 
012706 
012737 
012737 
012737 
012737 
012706 
012737 
012737 
005737 



013701 
010602 
005037 
104042 



$TMP1 
#30$, R1 
41 



#1$,$LPERR 
#77406, KIPDR4 
#77406, KIPDR5 
#MGMERR.MMVEC 



5+ELSE ERROR 

5+SET ERROR INDICATOR 

5+SET CORRECT SR2 VALUE FOE ERROR MSG 

5+ERROR.SR2 IS NOT TRACKING CORRECTLY 

{RESET LOOP ON ERROR POINTER TO 1$ 
{RESET PDR4 TO 128 BLKS. R/W 
; RESET PDR5 TO 128 BLKS. R/W 
{RESTORE ADDRESS OF NORMAL MEMORY 
{MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 

********* 



ft************************************************' 
42 USER ABORT PICKS UP KERNEL SPACE VECTOR 

THIS TEST CHECKS TO BE SURE THAT WHEN AN ABORT OCCURS WHILE IN 
USER MODE, THE TRAP VECTOR INFORMATION FETCHED IS TAKEN FROM 
KERNEL SPACE. USER PAGE IS MAPPED TO 1 2K (60000-77776) SO 
THAT IF USER SPACE IS USED INSTEAD OF KERNEL. THE NEW PC THAT 
WAS LOADED AT LOC. 060004 IS USED INSTEAD OF THE NEW PC THAT 
SHOULD BE PICKED UP FROM LOC. 000004. AN ODD ADDRESS ERROR IS USED 
TO CAUSE A TRAP TO "4". 



036002 
031136 
177776 
001100 
000600 
031236 
000340 
140000 
000700 
031222 
000340 
031223 



177776 
177776 



001110 



177640 
000004 
000006 
177776 

000004 
000006 



. . ************* 
TST42: SCOPE 

1$: JSR 

MOV 
2$: CLR 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 



MOV 
MOV 
CLR 
ERROR 



************************* 



******************** 



PC, TOFF 

#2$,$LPERR 

PSW 

#KERSTK,KSP 

#600,UIPAR0 

#4$,®>#4 

#340, @#6 

#140000, PSW 

#USESTK.USP 

#3S,f»#4 

#340,»#6 

3$+1 



PSW.R1 
SP.R2 
PSW 
42 



{TURN OFFT-BIT TRAPPING FOR THIS TEST 

{SET LOOP ON ERROR POINTER TO 2$ 

;GO TO KERNEL MODE 

{SETUP KERNEL STACK PTR. 

{MAP USER PAGE TO 12K 

{LOAD KERNEL VECTOR 4 (LOC. 4) WITH 4$ 

{LOAD VECTOR+2 WITH NEW PSW 

{GO TO USER MODE 

{SETUP USER STACK PTR. 

{LOAD USER VECTOR 4 (LOC. 60004) WITH 3$ 

{LOAD VECTOR+2 WITH NEW PSW 

{CAUSE ODD ADDR. ERROR TRAP TO "4" 

{SHOULD PICK UP NEW PC=4$ FROM KERNEL 

{LOC. 4, NOT PC=35 FROM USER LOC. 4 («60004) 

{SAVE PSW FOR ERROR 

; SAVE VALUE OF STACK POINTER FOR ERROR 

{BE SURE BACK IN KERNEL MODE 

{DID NOT TRAP THRU KERNEL SPACE 

;FOR TIGHTER SCOPE LOOP 



# 8 
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SEO 0072 



3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 



031236 
031242 
031246 
031252 
031260 
031264 
031270 
031276 
031304 



005037 
012706 
005037 
012737 
012706 
005037 
012737 
012737 
004737 



031310 000004 



031312 
031320 
031324 
031330 
031334 
031340 
031342 
031346 
031352 
031356 
031360 
031362 



012737 
012702 
010237 
012746 
012746 
000002 
013701 
042701 
005037 
020201 
001401 
104060 



177776 
001100 
177640 
140000 
000700 
177776 
002332 
031124 
036036 



031324 
170000 
177776 
000340 
031342 

177776 
007437 
177776 



000004 
001110 



CLR 


PSW 


MOV 


ffKERSTK.KSP 


CLR 


UIPARO 


MOV 


#140000, PSW 


MOV 


#USESTK,USP 


CLR 


PSW 


MOV 


#TIMERR,f»#4 


MOV 


#1$,$LPERR 


JSR 


PC, TON 



{REPLACE ERROR CALL WITH 

;"BR 2$" = 000740 

;BE SURE BACK IN KERNEL MODE 

{RESTORE KERNEL S.P. IN CASE IT CHANGED 

; REMAP USER PAGE TO 0-4K 

;G0 TO b^ER MODE 

;RESTORE USER STACK POINTER 

;G0 BACK TO KERNEL MODE 

JRESTORE ADDR. OF NORMAL CPU TRAP HANDLER TO 4 

{RESET LOOP ON ERROR POINTER TO 1$ 

{TURN T-BIT TRAPPING BACK ON 



j**************************************************,, 
*TEST 43 RTI IN USER MODE DOES NOT CHANGE PSW 



******** 



THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN USER 
MODE, THE MODE OR PRIORITY BITS OF THE PSW ARE NOT CHANGED. 



^ft***************************** 

TST43: SCOPE 



i****************************** 



001110 15: 
2$: 



MOV 
MOV 
MOV 
MOV 
MOV 
RTI 
MOV 
BIC 
CLR 
CMP 
BEQ 
ERROR 



031364 012737 031312 001110 4$: 



#2$,$LPERR 
#170000, R2 
R2.PSW 
#340, -(SP) 
#3$,-(SP) 

PSW.R1 

#7437, R1 

PSW 

R2,R1 

4$ 

60 



#1$.$LPERR 



JSET LOOP ON ERROR POINTER TO 2$ 

;LOAD "PRESENT & EXPECTED" PSW VALUE INTO R2 

;G0 TO USER MODE-PRIORITY 

;PUT A NEW PSW (PRI0RITY=7) ON STACK 

;PUT NEW PC ON THE STACK 

;D0 AN RTI FROM USER MODE 

5READ NEW PSW INTO R1 

{MASK OFF COND. CODE, T-BIT, AND UNUSED BITS 

;G0 BACK TO KERNEL MODE 

;DID PSW STAY IN USER, PRIORITY-0? 

{BRANCH IF YES 

;PSW CHANGED BY AN RTI FROM USER 

;FOR A TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

?"BR=2$" * 000760 

{RESET LOOP ON ERROR POINTER TO 1$ 
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SEQ 0073 



3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3305 
3606 
3607 
3608 
3609 
3610 
3S11 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
362B 
3629 



031372 
031374 
031402 
031406 
031412 
031420 
031426 
031434 
031440 



031442 
031446 
031452 
031460 
031466 
031472 
031476 
031500 
031504 
031510 
031514 
031516 
031522 
031526 
031530 



031532 
031540 
031546 
031554 
031562 



000004 
012737 
012705 
010537 
012737 
012737 
012737 
005237 
104043 



012706 
005037 
013737 
013737 
012700 
020037 
001402 
005237 
012701 
020137 
001402 
005237 
005737 
001404 
104044 



042737 
012737 
012737 
012737 
012737 



160000 
002332 
002400 
077406 
031374 



.******** 
*TEST 44 



**********************************. 
KT ERROR NOT SERVICED IF ODD ADDR, 



*************** 
ERROR 



THIS TEST CHECKS TO SEE THAT IF A CERTAIN VIRTUAL ADDRESS THAT 

WOULD CAUSE A MEMORY MANAGEMENT ERROR CAUSES AN ODD ADDRESS 

ERROR FIRST, THE ODD ADDRESS ERROR IS SERVICED BUT THE MEMORY 

MANAGEMENT ERROR ISN'T. THIS MEANS THAT SRO AND SR2 

SHOULD NOT REPORT THE ERROR OR LOCK UP ITS VIRTUAL ADDRESS. 

A READ-ONLY VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 

ERROR 



000600 
077402 
172310 
031442 
031440 
031434 
060001 



001100 
001200 
177572 
177576 
000017 
001366 

001200 
031460 
001370 

001200 
001200 



172350 1$: 



************ 
TST44: SCOPE 



000004 
000250 
001110 



001366 
001370 



2$: 
3$: 



4$: 
5$: 



7$: 



177572 
000004 
000250 
172310 
001110 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
INC 
ERROR 



MOV 
CLR 
MOV 
MOV 
MOV 
CMP 
BEQ 
INC 
MOV 
CMP 
BEQ 
INC 
TST 
BEQ 
ERROR 



BIC 
MOV 
MOV 
MOV 
MOV 



******************* 

#600,KIPAR4 

#77402, R5 

R5.KIPDR4 

#4$,P#4 

#3$,®#250 

#2$,$LPERR 

60001 

43 



******** 



***************** 



#KERSTK,KSP 

STMP1 

SRO.WASSRO 

SR2.WASSR2 

#17, RO 

RO,WASSRO 

6$ 

$TMP1 

#5$,R1 

R1 .WASSR2 

7$ 

STMP1 

STMP1 

8$ 

44 



#160000, SRO 
<mMERR,9#4 
#MGMERR,I»#250 
#77406, KIPDR4 
#1$,$LPERR 



MAP KERNEL PAGE 4 TO 12-16K 

LOAD PDR4 DATA INTO R5 

MAP PAGE 4 READ-ONLY 

SET CPU TRAP VECTOR TO ADDRESS OF 4$ 

SET M.M. TRAP VECTOR TO ADDRESS OF 3$ 

SET LOOP ON ERROR POINTER TO 2$ 

CAUSE ODD ADDR. ERROR & POTENTIAL R/0 ABORT 

TRAPPED THRU M t M. VECTOR BUT SHOULDN'T HAVE 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" = 000776 

RESTORE STACK POINTER AFTER TRAPPING 

CLEAR ERROR INDICATOR 

READ STATUS REG. 

READ STATUS REG. 2 

LOAD EXPECTED SRO CONTENTS INTO RO 

SRO ERROR BITS LEFT CLEAR BY TRAPPING? 

BRANCH IF YES 

SRO ERROR BITS SET WHEN ODD ADDR. SERVICED 

LOAD EXPECTED SR2 CONTENTS INTO R1 

WAS SR2 LEFT UNLOCKED BY TRAPPING? 

BRANCH IF YES 

SR2 LOCKED UP BY ODD ADDR. ERROR 

WHERE SRO OR SR2 EFFECTED? 

BRANCH IF NO 

SRO OR SR2 CHANGED BY ODD ADDR. ERROR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 2$" » 000741 

CLEAR ERROR BITS THAT MAY BE SET IN SRO 

RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 

RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 

REMAP PAGE 4 TO READ/WRITE 

RESET LOOP ON ERROR POINTER TO 1$ 



* i. + *******#******#******************** + ************************* 
*TEST 45 PC & PSW SAVED FOR KT ERROR DURING SERVICE OF ODD ADDR. 
* 

* THIS TEST CHECKS THF PC AND PROCESSOR STATUS WORD SAVED WHEN 

* A KT ERROR OCCURS DURING THE SECOND PUSH ON THE STACK DURING 

* SERVICING OF AN ODD ADDR. ERROR. DURING A "DOUBLE ERROR" 

* SEQUENCE SUCH AS THIS, THE PSW SAVED WILL BE THE ONE PICKED UP 
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SEQ 0074 



3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3552 
3653 
3654 
3655 
3656 
3657 
3658 
3559 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 



031570 
031572 
031576 
031604 
031612 
031620 
031626 
031634 
031642 
031650 
031656 
031664 
031672 
031676 

031702 
031706 
031710 
031716 
031724 
031732 
031736 
031742 
031750 
031754 
031760 
031764 



031770 
031772 



000004 
004737 
012737 
012737 
012737 
01 2 "37 
012737 
012737 
012737 
012737 
012737 
012737 
012706 
005237 

016601 
01 1603 
013737 
013737 
042737 
005037 
012706 
012737 
012706 
005037 
005037 
020127 



001402 
005237 



036002 
000600 
000600 
077402 
077406 
031702 
140017 
031702 
000340 
031664 
140000 
100002 
100005 

000002 

177572 
177576 
160000 
177776 
001100 
140000 
000700 
177776 
001176 
170017 



177646 
177650 
177606 
177610 
000004 
000006 
000250 
000252 
001110 
177776 



001366 
001370 
177572 



;* 
5 • 
! * 

TST45: 
1$: 



FROM VECTOR+2 (LOC 6 IN THIS CASE) AFTER THE FIRST TRAP, 

NOT THE PSW PRESENT BEFORE THE FIRST TRAP. SRO AND SR2 

SHOULD RECORD THE KT ERROR (A R/0 VIOLATION BY THE USER STACK PTR.) 

NOTE THAT THE PREVIOUS MODE BITS <13:12> OF THE PSW 
WILL BE SET IN THE PSW THAT IS SAVED. 



2$: 
3$: 
4$: 



******** 
SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
INC 

MOV 
MOV 
MOV 
MOV 
BIC 
CLR 
MOV 
MOV 
MOV 
CLR 
CLR 
CMP 



BEQ 
INC 



ft******************** 



************ 



>***********«**# 



PC, TOFF 

#600,UIPAR3 

#600,UIPAR4 

#77402, UIPDR3 

#77406, UIPDR4 

#4$,@#4 

#140017,^06 

#4$,@#250 

#340,@#252 

#2$,$LPERR 

#140000, PSW 

#100002, USP 

100005 

?(KSP),R1 

(KSP),R3 

SRO.WASSRO 

SR2.WASSR2 

#160000, SRO 

PSW 

#KERSTK,KSP 

#140000, PSW 

#USESTK,USP 

PSW 

STMPO 

R1, #170017 



5$ 
STMPO 



TURN T-BIT TRAPPING OFF FOR THIS TEST 

MAP USER PAGE 3 TO 12-16K 

MAP USER PAGE 4 TO 12-16K 

MAP USER PAGE 3 READ-ONLY 

MAP USER PAGE 4 READ/WRITE 

LOAD ADDRESS OF 4$ IN CPU (ODD ADDR.) VECTOR 

LOAD PSW THAT SHOULD BE PUT ON STACK IN VECTOR+2 

LOAD ADDRESS OF 4$ IN M.M. TRAP VECTOR 

LOAD A KERNEL PSW IN MMVEC+2 

SET LOOP ON ERROR POINTER TO 2$ 

GO TO USER MODE 

SET USER STACK PTR. EC SECOND PUSH IS IN PG. 3 

CAUSE ODD ADDRESS ERROR THAT WILL CAUSE 

R/0 ERROR WHEN TRY TO SAVE OLD PC 

PUT PSW SAVED ON KERNEL STACK INTO R1 

PUT PC SAVED ON KERNEL STACK INTO R3 

READ THP CONTENTS OF M.M. STATUS REG. 

READ THE CONTENTS OF M.M. STATUS REG. 2 

CLEAR THE ERROR BITS IN SRO 

BE SURE IN KERNEL MODE 

RESTORE KERNEL STACK POINTER 

GO TO USER MODE 

RESTORE USER STACK POINTER 

GO BACK TO KERNEL MODE 

CLEAR ERROR INDICATOR 

WAS THE PSW SAVED THE ONE PICKED UP BY THE 

ODD ADDR. TRAP FROM ERRVEC+2? 

VALUE 170017 * PSW FROM LOC. 6 WITH 

PREVIOUS MODE BITS « USER 

BRANCH IF YES 

WRONG PSW SAVED DURING "DOUBLE ERROR" SEQUENCE 
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ERROR 



SEQ 007S 



3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 



031776 020327 031702 

032002 001402 

032004 005237 001176 

032010 023727 001366 

032016 001402 

032020 005237 001176 

032024 023727 001370 

032032 001402 

032034 005237 001176 

032040 005737 001176 

032044 001401 

032046 104045 



032050 
032056 
032064 
032072 
032100 
032106 



012737 002332 

012737 000340 

012737 002400 

012737 077406 

012737 031572 

004737 036036 



0321 12 
032114 
032120 
032126 
032134 
032142 
032150 
032156 



000004 
005037 
012737 
012737 
012737 
012737 
012737 
012700 





5$: 


CMP 


R3,#3$+4 






BEQ 


R$ 






INC 


*TMPO 


020147 


6$: 


CMP 


WASSRO, #20147 






BEQ 


7$ 






INC 


STMPO 


031678 


7$: 


CMP 


WASSR2,#3S 






BEQ 


8$ 






INC 


STMPO 




8$: 


TST 


STMPO 






BEQ 


9$ 






ERROR 


45 



;WAS THE PC AT THE TIME OF THE ODD ADDR. ERROR 

;SAVED ON THE STACK? 

; BRANCH IF YES 

;WRONG PC SAVED DURING TRAP SEQUENCE 

;DID SRO REPORT - USER, PAGE 3, R/0 ABORT? 

; BRANCH IF YES 

;SRO DID NOT REPORT R/0 ABORT 

;DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 

; INSTRUCTION SUCCESSFULLY FETCHED? 

; BRANCH IF YES 

;SR2 DID NOT LOCK UP ADDR. OF ODD ADDR. INST. 

;ANY "ERRORS" DURING TRAP SEQUENCE? 

; BRANCH IF NO 

;THE WRONG PC OR PSW WERE SAVED 

;0R SRO OR SR2 DID NOT REPORT R/0 

; ERROR DURING ODD ADDR. - KT TRAP 

;SEQUENCE 

;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

;"BR 2$" » 000710 

; RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 

JRELOAD ERRVEC+2 WITH KERNEL PSW 

jRESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 

;REMAP USER PAGE 3 READ/WRITE 

;RESET LOOP ON ERROR POINTER TO 1$ 

;TURN T-BIT TRAPPING BACK ON 



THIS GROUP OF TESTS WILL TEST ALL THE LOGIC ASSOCIATED WITH 
THE "MOVE FROM PREVIOUS" AND MOVE TO PREVIOUS" INSTRUCTIONS. 



000004 


9$: 


MOV 


#TIMERR,@#4 


000006 




MOV 


#340, @#6 


000250 




MOV 


#MGMERR,$#250 


177606 




MOV 


#77406, UIPDR3 


001110 




MOV 


#1$,$LPERR 






JSR 


PC, TON 



.************************************** 



******************** 



. .******** 
;*TEST 46 



********************************** 
MOVE FROM PREVIOUS (USER) I-SPACE 



c************** 



THIS TEST USES THE 'MFPI' INSTRUCTION TO ENSURE THAT THE 

PREVIOUS MODE IS CLOCKED CORRECTLY 

THERE IS A DESCRIPTION BEFORE EACH DESIGNATION MODE TESTED, 

IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT 
WILL OCCUR AND TRAP TO 23$, WHERE THE ERRORS ARE REPORTED. 



..*****#************************** 



********* 



172340 
000200 
000400 
000600 
000600 
007600 
077406 



172342 
172344 
172346 
172350 
1723ES 



TST46: SCOPE 
1$: 



CLR 


KIPARO 


MOV 


#200,KIPAR1 


MOV 


#400,KIPAR2 


MOV 


#600,KIPAR3 


MOV 


#600,KIPAR4 


MOV 


#7600,KIPAR7 


MOV 


#77406, RO 



032162 012702 000010 



;MAP KERNEL PAGE TO 0-4K 

;MAP KERNEL PAGE 1 TO 4-8K 

;MAP KERNEL PAGE 2 TO 8-12K 

;MAP KERNEL PAGE 3 TO 12-16K 

;MAP KERNEL PAGE 4 TO 12-16K 

;MAP KERNEL PAGE 7 TO THE I/O PAGE 

;MAKE ALL KERNEL I-SPACE PAGES RESIDENT 

;READ/WRITE. LENGTH 200 BLOCKS 

;SET LOOP COUNTER TO 8 
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SEQ 0076 



3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 



032166 
032172 
032174 
032176 
032202 
032206 
032210 
032212 
032220 
032226 
032234 
032242 
032250 
032256 
032256 
032264 
032272 
032300 
032304 
032310 
032316 



032322 
032330 
032336 



012701 
010021 
077202 
012702 
012701 
010021 
077202 
012737 
012737 
012737 
012737 
012737 
012737 

012737 
012737 
012737 
012700 
010037 
012737 
105037 



012737 
012737 
006506 



2$: 



000010 
177600 



000000 
000200 
000400 
000600 
007600 
032256 

077406 
000600 
000600 
036514 
100000 
032712 
172310 



032330 
030340 



177640 
177642 
177644 
177646 
17765E 
0011 10 

172310 
172350 
177650 



4$: 



MOV 
MOV 
SOB 
MOV 
MOV 
MOV 
SOB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLRB 



#KIPDR0,R1 

R0,(R1)+ 

R2,2$ 

#10, R2 

#UIPDR0,R1 

R0,(R1 )+ 

R2 3$ 

#000,UIPAR0 

#200,UIPAR1 

#400,UIPAR2 

#600,UIPAR3 

#7600,UIPAR7 

#4$,$LPERR 

#77406, KIPDR4 

#600,KIPAR4 

#600,UIPAR4 

#36514, RO 

RO, ©#100000 

#23$,MMVEC 

KIPDR4 



PUT ADDRESS OF FIRST PDR IN R1 

LOAD PDR WITH 77406 

LOOP TO 2$ UNTIL ALL PDRS LOADED 

SET LOOP COUNTER TO 8 

PUT ADDRESS OF FIRST PDR IN R1 

LOAD PDR WITH 77406 

LOOP TO 3$ UNTIL ALL PDRS LOADED 

MAP USER I PAGE TO 0-4K 



MAP USER I 

MAP USER I 

MAP USER I 

MAP USER I 



PAGE 
PAGE 
PAGE 



1 TO 4-8K 

2 TO 8-1 2K 

3 TO 12-16K 



) 



PAGE 7 TO THE I/O PAGE 



SET LOOP ON ERROR TO 4$ 

KERNEL I-SPACE PAGE 4 READ/WRITE 

MAP KERNEL I PAGE 4 TO 1 2K 

MAP USER I PAGE 4 TO 1 2K 

LOAD DATA PATTERN INTO RO 

LOAD DATA PATTERN INTO PHY 60000 

SET M.M. VECTOR TO 23$ 

MAKE KERNEL I-SPACE PAGE 4 NON-RESIDENT 



001110 
177776 5$: 
65: 



032340 022706 001100 



;THE FOLLOWING WILL TEST DSTM*0 MFPI 

MOV #5$,$LPERR ;SET LOOP ON ERROR POINTER TO 5$ 

MOV #030340, PSW ;MAKE PREVIOUS MODE USER 

MFPI USP ;PUT USER STACK POINTER ON KERNEL 

{STACK 
CMP #KERSTK,KSP JWAS SOMETHING PUSHED ON STACK AT 6$ 
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SEQ 0077 



3754 032344 

3755 032346 

3756 032350 



001407 
012600 
012701 



BEQ 7$ ; BRANCH IF NOTHING WAS PUSHED 

MOV (KSP)+,R0 ;POP KERNEL STACK INTO RO 
MOV #USESTK,R1 5 EXPECTING TO GET 700 AS USP 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 79 
CFKTHB.P11 27-JUN-78 09:27 T46 MOVE FROM PREVIOUS (USER) 1-SPACE 



mmwm? 

-■mm*' 



3757 


032354 


020001 








CMP R0.R1 ; 


3758 


032356 


001403 








BEQ 8$ ; 


3759 


032360 


104046 








ERROR 46 ; 


3760 














3761 














3762 














3763 


032362 


000401 








BR 8$ ; 


3764 


032364 


104050 






7$: 


ERROR 50 ; 


3765 














3766 














3767 














3768 


032366 








8$: 


;THE FOLLOWING WILL TEST* 


3769 


032366 


012737 


032400 


001110 




MOV #9$,$LPERR ; 


3770 


032374 


012700 


036514 






MOV #3651 4, RO 


3771 


032400 


012737 


030340 


177776 


9$: 


MOV #030340, PSW ; 


3772 


032406 


012702 


100000 






MOV #1 00000 ,R2 


3773 


032412 


006512 








MFPI (R2) ; 


3774 


032414 


012601 








MOV (KSP)+,R1 ; 


3775 


032416 


020001 








CMP R0.R1 ; 


3776 


032420 


001401 








BEQ 10$ ; 


3777 


032422 


104046 








ERROR 46 ; 


3778 














3779 














3780 














3781 


032424 








10$: 


;THE FOLLOWING WILL TEST"' 


3782 


032424 


012737 


032432 


001110 




MOV #11$,$LPERR ; 


3783 


032432 


012737 


030340 


177776 


11$: 


MOV #030340, PSW ; 


3784 


032440 


012702 


100000 






MOV #100000, R2 ; 


3785 


032444 


006522 








MFPI (R2)+ ; 


3786 


032446 


012601 








MOV (KSP)+,R1 ; 


3787 


032450 


020001 








CMP R0.R1 ; 


3788 


032452 


001401 








BEQ 12$ ; 


3789 


032454 


104046 








ERROR 46 ; 


3790 












; 


3791 












; 


3792 
3793 


032456 








12$: 


;THE FOLLOWING WILL TEST* 



DID YOU GET THE RIGHT POINTER? 

BRANCH IF YOU DID 

WRONG THING WAS PUSHED ON STACK 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" = 000763 

BRANCH TO NEXT TRY 

NOTHING PUSHED ON STACK 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" = 000761 

DSTM=1 MFPI. 

SET LOOP ON ERROR POINTER TO 9$ 

RELOAD DATA PATTERN IN RO 

MAKE PREVIOUS MODE USER 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP KERNEL STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 9$» ■ 000766 

DSTM=2 MFPI. 

SET LOOP ON ERROR POINTER TO 11$ 

MAKE PREVIOUS MODE USER 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP KERNEL STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED, 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 11$" ■ 000766 

DSTM*3 MFPI. 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 80 



CFKTHB.P11 



27-JUN-78 09:27 



T46 



032456 012737 032464 001110 
032464 012737 030340 177776 13$: 
100000 



3794 
3795 

3796 032472 006537 

3797 032476 012601 

3798 032500 020001 

3799 032502 001401 
3B00 032504 104046 
3B01 

3802 



MOVE FROM PREVIOUS (USER) I-SPACE 

MOV #13$,$LPERR ;SET LOOP ON ERROR POINTER TO 13$ 
MOV #030340, PSW ;MAKE PREVIOUS MODE USER 
MFPI ##100000 ;READ FROM PHYSICAL 60000 
MOV (KSP)+,R1 ;POP KERNEL STACK INTO R1 
CMP R0,R1 ;WAS DATA FETCHED SAME AS STORED 

BEQ 14$ ; BRANCH IF CORRECT DATA WAS FETCHED 

ERROR 46 ; WRONG DATA WAS FETCHED 

;FOR TIGHTER SCOPE LOOP 
{REPLACE ERROR CALL WITH 



SEO 0079 



9 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAG? 81 
CFKTHB.P11 27-JUN-78 09:27 T46 MOVE FROM PREVIOUS (USER) I-SPACE 



SEQ 0030 



3803 
3B04 
3005 
3806 
3807 
3B08 
3809 
3010 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3023 
3824 
3825 
3826 
3327 
3823 
3329 
3830 
3831 
3832 
3333 
3834 
3835 
3835 
3337 
3838 
3339 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 



032506 
032506 
032514 
032522 
032526 
032530 
032532 
032534 
032536 



032540 
032546 
032554 
032562 
032566 
032570 
032572 
032574 
032576 



032600 

032600 
032606 
032614 
032616 
032622 
032624 
032626 
032630 



032632 

032632 
032640 
032646 
032654 
032660 

032664 
032666 
032670 
032672 



032514 
030340 
100002 



012737 
012737 
012702 
0C6542 
012601 
020001 
001401 
104046 



012737 032546 
012737 030340 



012737 
012702 
006552 
012601 
020001 
001401 
104046 



012737 
012737 
005002 
006562 
012601 
020001 
001401 
104046 



001110 
177778 



14$: 
15$: 



;"BR 13$" ■ 000767 
;THE FOLLOWING WILL TEST DSTM*4 MFPI. 



MOV 

MOV 

MOV 

MFPI 

MOV 

CMP 

BEO 

ERROR 



#15$,$LPERR 

#030340, PSW 

#100002, R2 

-(R2) 

(KSP)+,R1 

R0.R1 

16$ 

46 



SET LOOP ON ERROR POINTER TO 15$ 

MAKE PREVIOUS MODE USER 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP KERNEL STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FDR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 15$" ■ 000766 



;THE FOLLOWING WILL TEST DSTM*5 MFPI. 



100000 
001204 



001110 
177776 
001202 



MOV 

MOV 

MOV 

MOV 

MFPI 

MOV 

CMP 

BEQ 

ERROR 



#17$,$LPERR 

#030340, PSW 

#100000, $TMP2 

#<$TMP2+2>,R2 

@-(R2) 

(KSP)+,R1 

R0.R1 

•8$ 

46 



032606 001110 
030340 177776 



18$: 
19$: 



;THE FOLLOWING WILL TEST 



MOV 

MOV 

CLR 

MFPI 

MOV 

CMP 

BEO 

ERROR 



#19$,$LPERR 

#030340, PSW 

R2 

100000(R2) 

(KSP)+,R1 

R0.R1 

20$ 

46 



SET LOOP ON ERROR POINTER TO 17$ 

MAKE PREVIOUS MODE USER 

LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 

LOAD ADDR. OF $TMP2+2 INTO R2 

READ FROM PHYSICAL 60000 

POP KERNEL STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 17$" » 000763 

DSTM=6 MFPI. 

;SET LOOP ON ERROR POINTER TO 19$ 

;MAKE PREVIOUS MODE USER 

;MAKE REGISTER 2 A ZERO 

;READ FROM PHYSICAL 60000 

; POP KERNEL STACK INTO R1 

;WAS DATA FETCHED SAME AS STORED 

; BRANCH IF CORRECT DATA WAS FETCHED 

;WRONG DATA WAS FETCHED 

;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

;"BR 19$" = 000766 



;THE FOLLOWING WILL TEST DSTM=7 MFPI. 



012737 
012737 
012737 
012702 
006572 

012601 
020001 
001401 
104046 



032640 
030340 
100000 
001202 
000000 



0011 10 
177776 
001202 



21$: 



MOV 


#21$,$LPERR 


MOV 


#030340, PSW 


MOV 


#1 00000, $TMP2 


MOV 


#$TMP2,R2 


MFPI 


90 (R2) 


MOV 


(KSP)+,R1 


CMP 


R0,R1 


BEQ 


22$ 


ERROR 


46 



SET LOOP ON ERROR POINTER TO 21$ 

MAKE PREVIOUS MODE USER 

LOAD TEST LOC. V.A. INTO $TMP2 

LOAD ADDRESS OF $TMP2 INTO R2 

USE $TMP2 TO FETCH VIRTUAL 

ADDRESS OF 60000 

POP KERNEL STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 21$" * 000762 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 82 
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SEQ 0081 



3859 
3860 
3861 
3862 
3863 
3864 
3865 
3066 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3861 
3882 
3883 
3084 
3885 
3886 
3887 
3088 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3397 
3098 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 



032674 
032702 
032710 



032712 
0327161 

032722? 
032730- 
032736J 
032744 



012737 
012737 
000423 



012637 
012637 
013737 
013737 
042737 
104051 



0327461 013746 
032752! 013746 
032756! 000002 



002400 
032114 



001356 
001360 
177572 
177576 
160000 



001360 
001356 



032760 I 000004 
032762 ! 012737 
032770 J 012737 
032776 I 012737 
033004 ; 012737 
033012 012737 



033020 
033026 
033032 
033034 
033036 
033040 
033044 
033046 



033050 
033056 
033062 
033064 
033064 
033072 



077406 
077406 
000600 
000600 
033572 



030340 
007777 



000250 
001110 


22$: 


MOV 
MOV 
BR 


#MGMERR,MMVEC 

#1$,$LPERR 

TST47 


001366 
001370 
177572 


23$: 


MOV 
MOV 
MOV 
MOV 
BIC 
ERROR 


(KSP)+,TRAPPC 

(KSP)+,TRAPPS 

SRO.WASSRO 

SR2.WASSR2 

#160000, SRO 

51 






MOV 
MOV 
RTI 


TRAPPS.-(KSP) 
TRAPPC.-(KSP) 



;SET M.M. VECTOR TO NORMAL ROUTINE 
;SET LOOP POINTER TO START OF TEST 
; ; BRANCH TO NEXT TEST 



;SAVE PC & PS OF TRAP 

;SAVE SRO FOR ERROR TYPEOUT 

;SAVE SR2 FOR ERROR TYPEOUT 

JCLEAR ERROR BITS IN SRO AND LEAVE 

;TRIED TO READ NONRESIDENT PAGE 

;FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;A "NOP" ■ 000240 

;PUT PC & PS OF TRAP ON STACK 



.•n********************************************" 
*TEST 47 MOVE TO PREVIOUS (USER) I-SPACE 



ft**************** 



TST47: 
1$: 



012737 
012746 
006606 
006506 
012601 
022701 
001401 
104050 



012737 030340 
012746 000700 



012737 033102 
012702 100000 



172310 
177610 
172350 
177650 
000250 



177776 2$: 



THIS TEST USES THE 'MTPI' INSTRUCTION TO ENSURE THAT THE 

PREVIOUS MODE IS CLOCKED CORRECTLY 

THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 

IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
WILL OCCUR AND TRAP TO 20$, WHERE THE ERRORS ARE REPORTED. 

********************************** 

;KERNEL I-SPACE PAGE 4 READ/WRITE 
JUSER I-SPACE PAGE 4 READ/WRITE 
;MAP KERNEL I PAGE 4 TO 1 2K 
;MAP USER I PAGE 4 TO 12K 
;SET M.M. VECTOR TO 20$ 



;**************************** 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 



#77406, KIPDR4 
#77406, UIPDR4 
#600,KIPAR4 
#600,UIPAR4 
#20$,MMVEC 



;THE FOLLOWING WILL TESY DSTM*0 MTPI 



MOV 

MOV 

MTPI 

MFPI 

MOV 

CMP 

BEQ 

ERROR 



#030340, PSW 

#7777, -(KSP) 

USP 

USP 

(KSP)+,R1 

#7777,R1 

3$ 

50 



3$: 
4$: 



MOV #030340, PSW 
MOV #USESTK,-(KSP) 
MTPI USP 
;THIS WILL TEST DSTM ■ 
MOV #5$,$LPERR 
MOV #1 00000, R2 



;MAKE PREVIOUS MODE USER 

PUSH DATA ON KERNEL STACK 

LOAD USER STACK POINTER 

READ USER STACK POINTER 

POP KERNEL STACK INTO R1 

WAS USER STACK POINTER CHANGED 

BRANCH IF IT WAS 

USER STACK POINTER NOT CHANGED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

BR 2$" ■ 000764 
;MAKE PREVIOUS MODE USER 
iGET READY TO RESTORE USER S. POINT 

RESTORE USER STACK POINTER 
1 MTPI. 
;SET LOOP ON ERROR POINTER TO 5$ 
;LOAD VIRTUAL ADDRESS INTO R2 



CFKTHBO POP 11/34 MEM MGNT DIAG MACY11 30A(1053) 27-JUN-78 09:33 PAGE B3 
CFKTHB.P11 27-JUN-78 09:27 T47 MOVE TO PREVIOUS (USER) I-SPACE 



SEO 0082 



3915 


033076 


012700 


125252 




3916 


033102 


010046 






3917 


033104 


105037 


172310 




3918 


0331 10 


006612 






3919 


033112 


112737 


000006 


172310 


3920 


033120 


01 1201 






3921 


033122 


020001 






3922 


033124 


001401 






3923 


033126 


104047 






3924 










3925 










3926 










3927 


033130 








3928 










3929 


033130 


012737 


033154 


001110 


3930 


033136 


012737 


030340 


177776 


3931 


033144 


012700 


125252 




3932 


033150 


012702 


100000 




3933 


033154 


010046 






3934 


033156 


105037 


172310 




3935 


033162 


006612 






3336 


033164 


112737 


000006 


172310 


3937 


033172 


013701 


100000 




3938 


033176 


020001 






3939 


033200 


001401 






3940 


033202 


104047 






3941 










3942 










3943 










3944 


033204 








3945 


033204 


012737 


033224 


001110 


3946 


033212 


012737 


030340 


177776 


3947 


033220 


012700 


052525 




3948 


033224 


010C46 






3949 


033226 


105037 


172310 




3950 


033232 


006637 


100000 




3951 


033236 


112737 


000006 


172310 


3952 


033244 


013701 


100000 




3953 


033250 


020001 







MOV 


#125252, RO 


MOV 


RO.-(KSP) 


CLRB 


KIPDR4 


MTPI 


(R2) 


MOVB 


#006,KIPDR4 


MOV 


(R2),R1 


CMP 


R0.R1 


BEO 


6$ 


ERROR 


47 



JTHE FOLLOWING WILL TEST 



MOV 


#B$,$LPERR 


MOV 


#030340, PSW 


MOV 


#125252, RO 


MOV 


#100000, R2 


MOV 


RO t -(KSP) 


CLRB 


KIPDR4 


MTPI 


(R2) 


MOVB 


#006,KIPDR4 


MOV 


©#100000, R1 


CMP 


R0.R1 


BEO 


9$ 


ERROR 


47 



9$: 



10$: 



{THIS WILL TEST DSTM * 3 



MOV 


#10$,$LPERR 


MOV 


#030340, PSW 


MOV 


#52525, RO 


MOV 


RO.-(KSP) 


CLRB 


KIPDR4 


MTPI 


0#1OOOOO 


MOVB 


#006,KIPDR4 


MOV 


•#100000, R1 


CMP 


R0.R1 



LOAD TEST DATA INTO RO 

PUSH TEST DATA ON KERNEL STACK 

MAKE KERNEL I PAGE 4 NON-RESIDENT 

LOAD TEST DATA INTO PHYSICAL 60000 

MAKE KERNEL PAGE 4 RESIDENT 

READ FROM ADDRESS 60000 

SEE IF DATA WAS STORED AT CORRECT PLACE 

BRANCH IF STORE WAS CORRECT 

INCORRECT STORE 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 5$" ■ 000765 

DSTM=2 MTPI. 

SET LOOP ON ERROR POINTER TO 85 

MAKE PREVIOUS MODE USER 

LOAD TEST DATA INTO RO 

LOAD VIRTUAL ADDRESS INTO R2 

PUSH TEST DATA ON KERNEL STACK 

MAKE KERNEL PAGE 4 NON-RESIDENT 

LOAD TEST DATA INTO PHYSICAL 60000 

MAKE KERNEL PAGE 4 RESISENT 

READ FROM ADDRESS 60000 

SEE IF DATA WAS STORED CORRECTLY 

BRANCH IF STORE WAS CORRECT 

INCORRECT STORE 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 8$" = 000764 

MTPI. 

SET LOOP ON ERROR POINTER TO 10$ 

MAKE PREVIOUS MODE USER 

LOAD TEST DATA INTO RO 

PUSH TEST DATA ON KERNEL STACK 

MAKE KERNEL I PAGE 4 NON-RESIDENT 

LOAD TEST DATA INTO PHYSICAL 60000 

MAKE KERNEL PAGE 4 RESIDENT 

READ FROM ADDRESS 60000 

SEE IF DATA WAS STORED CORRECTLY 
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SEQ 0083 



3954 033252 001401 

3955 033254 104047 
3956 

3957 
3958 
3959 033256 



033256 012737 033276 001110 
033264 012737 030340 177776 



3960 
3961 

3962 033272 012700 125252 

3963 033276 010046 

3964 033300 012702 100002 



11$: 



12$: 



BEO 


11$ 


ERROR 


47 


{THIS 


WILL TEST DSTM 


MOV 


#12$,$LPERR 


MOV 


#030340, PSW 


MOV 


#125252, RO 


MOV 


RO,-(KSP) 


MOV 


#1 00002, R2 



; BRANCH IF STORE WAS CORRECT 
{INCORRECT STORE 
; FOR TIGHTER SCOPE LOOP 
{REPLACE ERROR CALL WITH 
;»BR 10$" ■ 000763 
4 MTPI. 
;SET LOOP ON ERROR POINTER TO 12$ 
{MAKE PREVIOUS MODE USER 
;LOAD TEST DATA INTO RO 
J PUSH TEST DATA ON KERNEL STACK 
{LOAD VIRTUAL ADDRESS INTO R2 



IP 



• • 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY 1 1 30A(1052) 27-JUN-78 09:33 PAGE 85 
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SEQ 0084 



3965 


033304 


105037 


172310 




3966 


033310 


006642 






3967 


033312 


112737 


000006 


172310 


3968 


033320 


013701 


100000 




3969 


033324 


020001 






3970 


033326 


001401 






3971 


033330 


104047 






3972 










3973 










3974 










3975 


033332 








3976 










3977 


033332 


012737 


033364 


001110 


3978 


033340 


012737 


030340 


177776 


3979 


033346 


012700 


052525 




3980 


033352 


012702 


001204 




3981 


033356 


012737 


100000 


001202 


3982 


033364 


010046 






3983 


033366 


105037 


172310 




3984 


033372 


006652 






3985 


033374 


112737 


000006 


172310 


3986 


033402 


013701 


100000 




3987 


033406 


020001 






3988 


033410 


001401 






3989 


033412 


104047 






3990 










3991 










3992 










3993 


033414 








3994 










3995 


0334 14 


012737 


033436 


001110 


3996 


033422 


012737 


030340 


17777b 


3997 


033430 


012700 


052525 




3998 


033434 


005002 






3999 


033436 


010046 






4000 


033440 


105037 


172310 




4001 


033444 


006662 


100000 




4002 


033450 


112737 


000006 


172310 


4003 


033456 


013701 


100000 




4004 


033462 


020001 






4005 


033464 


001401 






4006 


033466 


104047 






4007 










4008 










4009 










4010 


033470 








401 1 










4012 


033470 


012737 


033522 


001110 


4013 


033476 


012737 


030340 


177776 


4014 


033504 


012700 


125252 




4015 


033510 


012737 


100000 


001202 


4016 










4017 


033516 


012702 


001202 




4018 


033522 


010046 






4019 


033524 


105037 


172310 




4020 


033530 


006672 


000000 





CLRB 


KIPDR4 


MTPI 


-(R2) 


MOVB 


*006,KIPDR4 


MOV 


«P#100000,R1 


CMP 


R0.R1 


BEO 


13$ 


ERROR 


47 



{MAKE KERNEL I PAGE 4 NON-RESIDENT 

{LOAD TEST DATA INTO PHYSICAL 60000 

{MAKE KERNEL PAGE 4 RESIDENT 

{READ FROM ADDRESS 60000 

;SEE IF DATA WAS STORED CORRECTLY 

{BRANCH IF STORE WAS CORRECT 

; INCORRECT STORE 

{FOR TIGHTER SCOPE LOOP 

{REPLACE ERROR CALL WITH 

;"BR 12$" ■ 000762 



;THE FOLLOWING WILL TEST DSTM=5 MTPI. 



MOV 


#14$,$LPERR 


MOV 


#030340, PSW 


MOV 


#52525, RO 


MOV 


#<$TMP2+2>,R2 


MOV 


#100000, $TMP2 


MOV 


RO.-(KSP) 


CLRB 


KIPDR4 


MTPI 


P-(R2) 


MOVB 


#006,KIPDR4 


MOV 


$4100000, R1 


CMP 


R0,R1 


BEO 


15$ 


ERROR 


47 



;THIS WILL TEST DSTM 



MOV 


#16$,$LPERR 


MOV 


#030340, PSW 


MOV 


#52525, RO 


CLR 


R2 


MOV 


RO.-(KSP) 


CLRB 


KIPDR4 


MTPI 


100000(R2) 


MOVB 


#006,KIPDR4 


MOV 


$#100000, R1 


CMP 


R0.R1 


BEQ 


17$ 


ERROR 


47 



{THE FOLLOWING WILL 



;SET LOOP ON ERROR POINTER TO 14$ 
;MAKE PREVIOUS MODE USER 
;LOAD TEST DATA INTO RO 
{LOAD ADDR. OF LOC. $TMP2+2 INTO R2 
;LOAD VIRT. ADDR. OF TEST LOC. INTO $TMP2 
;PUSH TEST DATA ON KERNEL STACK 
;MAKE KERNEL PAGE 4 NON-RESIDENT 
;LOAD TEST DATA INTO PHYSICAL 60000 
;MAKE KERNEL PAGE 4 RESIDENT 
;READ FROM ADDRESS 60000 
;SEE IF DATA WAS STORED CORRECTLY 
; BRANCH IF STORE WAS CORRECT 
; INCORRECT STORE 
;FOR TIGHTER SCOPE LOOP 
{REPLACE ERROR CALL WITH 
;"BR 14$" ■ 000764 
6 MTPI. 

;SET LOOP ON ERROR POINTER TO 16$ 
{MAKE PREVIOUS MODE USER 
;LOAD TEST DATA INTO RO 
;MAKE REGISTER 2 ZERO 
{PUSH TEST DATA ON KERNEL STACK 
;MAKE KERNEL I PAGE 4 NON-RESIDENT 
{LOAD TEST DATA INTO PHYSICAL 60000 
{MAKE KERNEL PAGE 4 RESIDENT 
{READ FROM ADDRESS 60000 
;SEE IF DATA WAS STORED CORRECTLY 
; BRANCH IF STORE WAS CORRECT 
; INCORRECT STORE 
;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;"BR 16$" a 000763 
TEST DSTM=7 MTPI. 



MOV #18$,$LPERR ;SET LOOP ON ERROR POINTER TO 18$ 

MOV #030340, PSW {MAKE PREVIOUS MODE USER 

MOV #125252, RO ; LOAD TEST DATA INTO RO 

MOV #100000, $TMP2 ; LOAD VIRT. ADDR. OF TEST LOCATION 

ilNTO LOCATION STMP2 

MOV #$TMP2,R2 {LOAD ADDRESS OF STMP2 INTO R2 

MOV RO.-(KSP) {PUSH TEST DATA ON KERNEL STACK 

CLRB KIPDR4 {MAKE KERNEL PAGE 4 NON-RESIDENT 

MTPI $0(R2) ; LOAD TEST DATA INTO PHYSICAL 60000 
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SEQ 0085 



4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4 039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4057 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 



033534 
033542 
033546 
033550 
033552 



033554 
033562 
033570 



033572 
033576 
033602 
033610 
033616 
033624 



033626 
033632 
033636 



112737 
013701 
020001 
001401 
104047 



012737 
012737 
000423 



012637 
012637 
013737 
013737 
042737 
104051 



013746 
013746 
000002 



000006 
100000 



032762 
002400 



001356 
001360 
177572 
177576 
160000 



001360 
001356 



033640 
033642 

033646 
033652 
033656 
033660 
033662 
033670 
033676 
033704 
033712 
033720 
033724 
033730 



000004 
012700 

012702 
012701 
010021 
077202 
012737 
012737 
012737 
012737 
012737 
012700 
010037 
012702 



001110 
000250 



001366 
001370 
177572 



19$: 



MOVB 

MOV 

CMP 

BEQ 

ERROR 



MOV 
MOV 
BR 



MOV 
MOV 
MOV 
MOV 
BIC 
ERROR 



#006,KIPDR4 

§#100000, R1 

R0.R1 

19$ 

47 



#1$,$LPERR 

#MGMERR,MMVEC 

TST50 



(KSP)+,TRAPPC 

(KSP)+,TRAPPS 

SRO,WASSRO 

SR2.WASSR2 

#160000,SR0 

51 



MOV TRAPPS,-(KSP) 
MOV TRAPPC-(KSP) 
RTI 



MAKE KERNFL PAGE 4 RESIDENT 

READ FROM ADDRESS COOOO 

SEE IF DATA WAS STORED CORRECTLY 

BRANCH IF STORE WAS CORRECT 

INCORRECT STORE 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 18$" « 000763 

SET LOOP POINTER TO START OF TEST 

RESTORE M.M. VECTOR TD NORMAL ROUTINE 

; BRANCH TO NEXT TEST 



;SAVE PC & PS OF TRAP 

{SAVE SRO FOR ERROR TYPEOUT 
{SAVE SR2 FOR ERROR TYPEOUT 
;CLEAR ERROR BITS IN SRO 
{TRIED TO LOAD A N.R. PAGE 4 
{FOR TIGHTER SCOPE LOOP 
{REPLACE ERROR CALL WITH 
;A "NOP" = 000240 
{PUT PC & PS OF TRAP ON STACK 



{RETURN TO TEST 



. *************************************************************** 

♦TEST 50 MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 
* 

* THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE 

* FETCH IS FROM KERNEL SPACE. 

* THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 
* 

* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 

* WILL OCCUR AND TRAP TO 21$, WHERE THE ERRORS ARE REPORTED. 



000010 
177600 



033670 
140340 
077406 
000600 
000600 
036514 
100000 
100000 



0011 10 
177776 
172310 
172350 
177650 



TST50! 
1$: 



2$: 
3$: 



SCOPE 

MOV #77406, RO 



MOV 
MOV 
MOV 
SOB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#10, R2 
#UIPDR0,R1 
R0,(R1 )+ 
R2,2$ 

#3$,$LPERR 
#140340,PSW 
#77406, KIPDR4 
#600,KIPAR4 
#600,UIPAR4 
#36514, RO 
RO, $#100000 
#100000, R2 



;THE FOLLOWING WILL TEST 



MAKE ALL USER I-SPACE PAGES RESIDENT 

READ/WRITE, LENGTH 200 BLOCKS 

SET LOOP COUNTER TO 8 

LOAD ADDRESS OF FIRST PDR IN R1 

LOAD PD1 WITH 77406 

LOOP UNTIL 8 USER PDRS LOADED 

SET LOOP ON ERROR TO 3$ 

GO TO USER MODE FOR THIS TEST 

KERNEL I-SPACE PAGE 4 READ/WRITE 

MAP KERNEL I PAGE 4 TO 1 2K 

MAP USER I PAGE 4 TO 12K 

LOmD DATA PATTERN INTO RO 

LOAD DATA PATTERN INTO PHY 60000 

LOAD VIRTUAL ADDRESS INTO R2 

DSTM«0 MFPI 
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SEQ 0Q86 



) 



4077 












; 




4078 


033734 


012737 


034336 


000250 




MOV 


#21$,MMVEC 


4079 


033742 


105037 


177610 






CLRB 


UIPDR4 ; 


4080 


033746 


012737 


140340 


177776 




MOV 


#1 40340 f PSW ; 


4081 


033754 


006506 






4$: 


MFPI 


KSP 


4082 


033756 


022706 


000700 






CMP 


#USESTK,USP ; 


4083 


033762 


001407 








BEQ 


5$ 


4084 


033764 


012600 








MOV 


(USP)+,RO ; 


4085 


033766 


012701 


001100 






MOV 


#KERSTK,R1 ; 


4086 


033772 


020001 








CMP 


R0,R1 ; 


4087 


033774 


001403 








BEQ 


6$ 


4088 


033776 


104046 








ERROR 


46 ; 


4089 
















4090 
















4091 
















4092 


034000 


000401 








BR 


6$ ; 


4093 


034002 


104050 






5$: 


ERROR 


50 ; 


4094 
















4095 
















4096 
















4097 


034004 








6$: 


;THE 


FOLLOWING WILL TEST' 


4098 


034004 


012737 


034012 


001110 




MOV 


#7$,$LPERR 


4099 


034012 


012737 


140340 


177776 


7$: 


MOV 


#140340, PSW ; 


4100 


034020 


012700 


036514 






MOV 


."3651 4, RO ; 


4101 


034024 


012702 


100000 






MOV 


#100000, R2 ; 


4102 


034030 


006512 








MFPI 


(R2) ; 


4103 


034032 


012601 








MOV 


(USP)+,R1 ; 


4104 


034034 


020001 








CMP 


R0.R1 ; 


4105 


034036 


001401 








BEQ 


8$ ; 


4 106 


034040 


104046 








ERROR 


46 ; 


4107 
















41 OB 
















4109 
















4110 


034042 








8$: 


;THE 


ALLOWING WILL TEST 


4111 


034042 


012737 


034050 


001110 




MOV 


#9$,$LPERR ; 


4112 


034050 


012737 


140340 


177776 


9$: 


MOV 


#140340, PSW ; 


4113 


034056 


012702 


100000 






MOV 


#100000, R2 ; 


4114 


034062 


006522 








MFPI 


(R2)+ ; 


4115 


034064 


012601 








MOV 


(USP)+,R1 ; 


4116 


034066 


020001 








CMP 


R0,R1 ; 


4117 


034070 


001401 








BEQ 


10$ ; 


4118 


034072 


104046 








ERROR 


46 ; 


41 19 














; 


4120 














; 


4121 














; 


4122 


034074 








10$: 


JTHE FOLLOWING WILL TEST 


4123 


034074 


012737 


034102 


001110 




MOV 


#11$,$LPERR ; 


4124 


034102 


012737 


140340 


177776 


11$: 


MOV 


#140340, PSW ; 


4125 


0341 10 


006537 


100000 






MFPI 


##100000 


4126 


0341 14 


012601 








MOV 


(USP)+,R1 ; 


4127 


0341 16 


020001 








CMP 


R0.R1 ; 


4128 


034120 


001401 








BEQ 


12$ ; 


4129 


034122 


104046 








ERROR 


46 ; 


4130 














i 


4131 














; 


4132 














; 



SET M.M. VECTOR TO 21$ 

MAKE USER I-SPACE PAGE 4 NON-RESIDENT 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

PUT KERNEL STACK POINTER ON USER STACK 

WAS SOMETHING PUSHED ON STACK AT 1$ 

BRANCH IF NOTHING WAS PUSHED 

POP USER STACK INTO RO 

EXPECTING 1100 AS KSP 

DID YOU GET THE RIGHT POINTER? 

BRANCH IF YOU DID 

WRONG THING WAS PUSHED ON STACK 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" ■ 000766 

BRANCH TO NEXT TRY 

NOTHING PUSHED ON STACK 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 4$" * 000764 

DSTM=1 MFPI. 

SET LOOP ON ERROR POINTER TO 7$ 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

LOAD DATA EXPECTED INTO RO 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 7$" ■ 000764 

DSM=2 MFPI. 

SET LOOP ON ERROR POINTER TO 9$ 
;MAKE PREVIOUS MODE KERNEL PRESENT USER 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 
;WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 9$" * 000766 

DSTM*3 MFPI. 

SET LOOP ON ERROR POINTER TO 11$ 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 
•»BR 11$ H * 000767 



.. i 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 88 

CFKTHB.P11 27-JUN-78 09:27 T50 MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 



SEQ 0087 



4133 


034124 








12$: 


;THE 


FOLLOWING WILL TEST 


4134 


034124 


012737 


034132 


001110 




MOV 


#13$,$LPERR ; 


4135 


034132 


012737 


140340 


177776 


13$: 


MOV 


#140340, PSW ; 


4136 


034140 


012702 


100002 






MOV 


*100002,R2 : 


4137 


034144 


006542 








MFPI 


-(R2) ; 


4138 


034146 


012601 








MOV 


(USP)+,R1 ; 


4139 


034150 


020001 








CMP 


R0,R1 ; 


4140 


034152 


001401 








BEQ 


14$ ; 


4141 


034154 


104046 








ERROR 


46 ; 


4142 
















4143 
















4144 
















4145 


034156 








14$: 


;THE 


FOLLOWING WILL TEST 


4146 












; 




4147 


034156 


012737 


034164 


001110 




MOV 


#15$,$LPERR 


4148 


034164 


012737 


140340 


177776 


15$: 


MOV 


#140340, PSW ; 


4149 


034172 


012737 


100000 


001202 




MOV 


#1 00000, STMP2 


4150 


034200 


012702 


001204 






MOV 


#<$TMP2+2>,R2 ; 


4151 


034204 


006552 








MFPI 


•-(R2) ; 


4152 


034206 


012601 








MOV 


(USP)+,R1 ; 


4153 


034210 


020001 








CMP 


R0,R1 : 


4154 


034212 


001401 








BEQ 


16$ ; 


4155 


034214 


104046 








ERROR 


46 ; 


4156 
















4157 
















4158 
















4159 


034216 








16$: 


JTHE 


FOLLOWING WILL TEST 


4160 












; 




4161 


034216 


012737 


034224 


001110 




MOV 


#17$,$LPERR 


4162 


034224 


012737 


140340 


177776 


17$: 


MOV 


#140340, PSW ; 


4163 


034232 


005002 








CLR 


R2 ; 


4164 


034234 


006562 


100000 






MFPI 


100000(R2) ; 


4165 


034240 


012601 








MOV 


(USP)+,R1 ; 


4166 


034242 


020001 








CMP 


R0,R1 ; 


4167 


034244 


001401 








BEQ 


18$ 


4168 


034246 


104046 








ERROR 


46 ; 


4169 
















4170 
















4171 
















4172 


034250 








18$: 


JTHE 


FOLLOWING WILL TEST 


4173 












; 




4174 


034250 


012737 


034256 


001110 




MOV 


#19$,$LPERR ; 


4175 


034256 


012737 


140340 


177776 


19$: 


MOV 


#140340, PSW ; 


4176 


034264 


012737 


100000 


001202 




MOV 


#100000, $TMP2 ; 


4177 


034272 


012702 


001202 






MOV 


#$TMP2,R2 ; 


4178 


034276 


006572 


000000 






MFPI 


90 (R2) ; 


4179 


034302 


012601 








MOV 


(USP)+,R1 ; 


4180 


034304 


020001 








CMP 


R0.R1 


4181 


034306 


001401 








BEQ 


20$ ; 


4182 


034310 


104046 








ERROR 


46 ; 


4183 
















4184 
















41 85 
4186 


034312 


012737 


002400 


000250 


20$: 


MOV 


#MGMERR,MMVEC j 


41B7 


034320 


012737 


000340 


177776 




MOV 


#00340, PSW 


4 188 


034326 


012737 


033642 


001110 




MOV 


#1$,$LPERR ; 



DSTM=4 MFPI. 

SET LOOP ON ERROR POINTER TO 13$ 

MAKE PREVIOUS MODE DERNEL PRESENT USER 

LOAD VIRTUAL ADDRESS INTO R2 

READ FROM PHYSICAL 60000 

POP USE.\ STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA WAS FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 13$" * 000766 

DSTM=5 MFPI. 

SET LOOP ON ERROR POINTER TO 15$ 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 

LOAD ADDRESS OF STMP2+2 INTO R2 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 15$" = 000763 

DSTM=6 MFPI. 

SET LOOP ON ERROR POINTER TO 17$. 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

MAKE REGISTER 2 A ZERO 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 17$'* = 000766 

DSTM*7 MFPI. 

SET LOOP ON ERROR POINTER TO 19$ 

MAKE PREVIOUS MODE KERNEL PRESENT USER 

LOAD TEST LOC. VIRT. ADDR. INTO $TMP2 

LOAD ADDRESS OF STMP2 INTO R2 

READ FROM PHYSICAL 60000 

POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 

BRANCH IF CORRECT DATA FETCHED 

WRONG DATA WAS FETCHED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 19$" ■ 000762 

SET M.M. VECTOR TO NORMAL ROUTINE 

GO BACK TO KERNEL MODE, PREVIOUS KERNEL 

SET LOOP POINTER TO START OF TEST 
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SEQ 003$ 



4189 


034334 


000423 




4190 








4191 








4192 


034336 


012S37 


001356 


4193 


034342 


012637 


001360 


4194 


034346 


013737 


177572 001366 


4195 


034354 


013737 


177576 001370 


1196 


034362 


042737 


160000 177572 


4197 


034370 


104051 




4198 








4199 








4200 








4201 


034372 


013746 


001360 


4202 


034376 


013746 


001356 


4203 


034402 


000002 




4204 








4205 








4206 








4207 








420e 








4209 








4210 








4211 








4212 








4213 


034404 


000004 




4214 


034406 


012737 


030340 177776 


4215 


034414 


106506 




■3216 








4217 


034416 


022706 


001100 


4218 


034422 


001407 




4219 


034424 


012600 




4220 


034426 


012701 


000700 


4221 


034432 


020001 




4222 


034434 


001403 




4223 


034436 


104053 




4224 








4225 








4226 








4227 


034440 


000401 




4228 


034442 


104054 




4229 








4230 








4231 








4232 


034444 


012737 


034452 001110 


4233 


034452 


012746 


007777 


4234 


034456 


106606 




4235 


034460 


106506 




4236 


034462 


012601 




4237 


034464 


022701 


007777 


4238 


034470 


001401 




4239 


034472 


104054 




4240 








4241 








4242 








4243 


034474 


012746 


000700 


4244 


034500 


106606 





21$: 



MOV 
MOV 
MOV 
MOV 
BIG 
ERROR 



MOV 
MOV 
RTI 



(KSP)+,TRAPPC 

(KSP)+ f TRAPPS 

SRO.WASSRO 

SR2.WASSR2 

#160000, SRO 

51 



TRAPPS.-(KSP) 
TRAPPC.-(KSP) 



{BRANCH TO NEXT TEXT 



;SAVE PC & PS OF TRAP 

;SAVE SRO FOR ERROR TYPEOUT 

-.SAVE SR2 FOR ERROR TYPEOUT 

jCLEAR ERROR BITS IN SRO 

{TRIED TO READ NON-RESIDENT PAGE 

;FOR TIGHTER SCOPE LOOP 

-.REPLACE ERROR CALL WITH 

;A "NOP" a 000240 

;PUT PC & PS OF TRAP ON STACK 

; RETURN TO TESJ 



************ 
♦TEST 51 



*************************************************** 
MOVE FROM/TO D-HPACE * MOVE FROM/TO I-SPACE 



THIS TEST CHECKS THAT SINCE THFRE IS NO DISTINCTION 

BETWEEN INSTRUCTION AND DATA SPACE IN THE 11/34 

MFPD & MTPD SHOULD BE DECODED THE SAME AS MFPI & MTPI. 



****«***********************#******* 

TST51! SCOPE 



*********************** 



1$: 


MOV 


#030340,PSW 




MFPD 


USP 




CMP 


#KERSTK,KSP 




BEQ 


2$ 




MOV 


(KSP)+,RO 




MOV 


#USESTK,R1 




CMP 


R0.R1 




BEO 


3$ 




ERROR 


53 




BR 


3$ 


2$: 


ERROR 


54 


3$: 


MOV 


./4$,$LPERR 


4$: 


MOV 


#7777, -(KSP) 




MTPD 


USP 




MFPD 


USP 




MOV 


(KSP)+,R1 




CMP 


#7777, R1 




BEQ 


5$ 




ERROR 


54 


5$: 


MOV 


#USESTK,-(KSP) 




MTPD 


USP 



MAKE PREVIOUS MODE*USER, CURRENT*KERNEL 

MFPD SHOULD ACT LIKE MFPI PUTTING 

USER STACK POINTER ON THE KERNEL STACK 

WAS SOMETHING PUSHED ON KERNEL STACK? 

BRANCH IF NO 

POP KERNEL STACK INTO RO 

EXPECTING TO GET 700 AS USP 

DID GET RIGHT POINTER VALUE? 

BRANCH IF YES 

WRONG THING WAS PUSHED ON STACK 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 1$" = 000763 

BRANCH TO NEXT TRY 

NOTHING PUSHED ON STACK 

FOR TluHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 15" ■ 000761 

SET LOOP ON ERROR POINTER TO 4$ 

PUSH DATA ON KERNEL STACK 

LOAD Th •. USER STACK POINTER 

READ USER STACK POINTER 

POP KERNEL STACK INTO R1 

WAS USER STACK POINTER CHANGED? 

BRANCH IF YES 

USER STACK POINTER NOT CHANGED 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

»BR 4$" « 000767 

GET READY TO RESTORE USER STK. PTR. 

RESTORE USER STACK POINTER 
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SEQ 0089 



4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 



034502 012737 034406 001110 



;SET LOOP POINTER TO START OF TEST 



034510 
034512 
034516 
034522 
034524 

034526 
034530 

034532 
034534 



034536 
034540 
034542 
034544 



000004 
005037 
012"00 
010006 
006506 

011601 
020001 

001401 
104046 



005740 
020600 
001401 
104050 



177776 
001100 



* THIS TEST CHECKS THAT IF 

* ARE KERNEL, AND THE SOURC 

* STACK IS NOT DECREMENTED 

* "MFPI KSP" SHOULD PUSH TH 
» OF KSP (1100) ONTO THE ST 
J******************************* 

TST525 SCOPE 

1$: CLR @#PSW 

MOV #STACK,RO 

MOV RO.KSP 

MFPI KSP 



034546 012706 001100 



.*********************************************** **************** 
•TEST 52 MOVE FROM PREVIOUS I=SPACE ( PREVIOUS«CURRENT=KERNEL) 

BOTH PREVIOUS AND CURRENT MODES 

E MODE IS 0, THE DESTINATION 

BEFORE ACCESS. 

E NON-DECREMENTED VALUE 

ACK (AT LOC. 1076). 

*************************** 

SET PREVIOUS = CURRENT = KERNEL 

SETUP VALUE FOR STACK POINTER 

LOAD STACK POINTER 

THE VALUE "STACK" SHOULD BE PUSHED 

BEFORE BEING DECREMENTED 

READ DATA WHICH WAS PUSHED 

WAS THE ORIGINAL VALUE OF THE 

STACK POINTER PUSHED? 

BRANCH IF YES 

MFPI FETCHED WRONG DATA 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 1$" ■ 000766 

SETUP EXPECTED STACK POINTER VALUE 

WAS THE STACK POINTER DECREMENTED? 

BRANCH IF YES 

STACK NOT PUSHED BY THE MFPI 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

"BR 1$" « 000762 

RESTORE STACK POINTER 



. SBTTL a**************************************** *************** 



MOV 
CMP 



BEQ 
ERROR 



(KSP),R1 
R0,R1 



2$ 
46 



TST -(RO) 

CMP KSP.RO 

BEQ 3$ 

ERROR 50 



CFKTHBO POP 11/34 MEM MGNT DIAG MACYtl 30A(1052) 27-JUN-78 09:33 PAGE 91 
CFKTHB.P11 27-JUN-78 09:27 END OF PASS ROUTINE 



SEQ 0090 



§ '£) 



4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4115 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
432fl 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 



.SBTTL END OF PASS ROUTINE 



****** **************** 



;*INCREMENT THE ^ASS NUMBER (SPASS) 

;*TYPE "END PASS 0XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY* 

;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBLRS 

;*IF SW12»1 INHIBIT TRACE TRAP 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO LOOP 



034552 
034552 
034554 
034560 
034564 
034570 
034576 
034600 
034602 
034604 
034606 
034610 
034612 
034616 

034636 
034636 

034642 
034644 
034650 

034714 
034714 

034720 
034722 
034726 
034732 
034736 
034740 
034742 
034746 

034750 
034750 
034754 
034756 
034760 
034762 
034764 
034766 
034770 
034770 
034772 
034776 



$eop: 



001102 
001212 
001234 
100000 



000004 
005037 
005037 
005237 
042737 
005327 
000001 
003072 
012737 
000001 
034600 
104401 
000407 



013746 001234 



;;65$: 
64$: 



SCOPE 

CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

BR 

.ASCIZ 

MOV 



104405 
104401 
000421 



013746 001112 



104405 
104401 
005037 
013700 
001414 
005046 
012746 
000426 



013700 
001405 
000005 
004710 
000240 
000240 
000240 

104400 
042716 
032777 



001223 
001112 
000042 



000020 
010000 



TYPDS 
TYPE 

;;67$: .ASCIZ 
66$: 

MOV 

TYPDS 
TYPE 
CLR 
$GET42: MOV 
BEQ 
CLR 
MOV 
BR 

$CLR.T: 

MOV 
BEQ 
RESET 

SENDAD: JSR 
NOP 
NOP 
NOP 

SDOAGN: 

TRAP 
BIC 
144134 BIT 



$TSTNM ;;ZERO THE TEST NUMBER 

$TIMES i'.ZERO THE NUMBER OF ITERATIONS 

$PASS ;; INCREMENT THE PASS NUMBER 

#100000, $PASS ;;DON'T ALLOW A NEG, NUMBER 

(PC)+ ; ;LOOP? 

1 

SDOAGN ;;YES 

(PC)+,3(PC)+ J ? RESTORE COUNTER 



,65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<12><15>/END PASS « / 



SPASS, -(SP) 



,67$ 
66$ 



;SAVE SPASS FOR TYPEOUT 
;TYPE PASS NUMBER 

;GO TYPE— DECIMAL ASCII WITH SIGN 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



/ TOTAL ERRORS SINCE LAST REPORT / 



$ERTTL,-(SP) 



,$CRLF 

$ERTTL 

P#42,R0 

$DOAGN 

-(SP) 

#$CLR.T,-(SP) 

SRTRN 



f>#42,R0 
SDOAGN 



PC,(R0) 



#20,(SP) 
#BIT12,9SWR 



;;SAVE SERTTL FOR TYPEOUT 

;; TOTAL NUMBER OF ERRORS 

;;GO TYPE— DECIMAL ASCII WITH SIGN 

;;TYPE CARRIAGE RETURN, LINE FEED 

; ;CLEAR ERROR TOTAL 

; ;GET MONITOR ADDRESS 

; ; BRANCH IF NO MONITOR 

;; INSURE THE "T" BIT IS CLEAR 

; JSETUP FOR AN RTI OR RTT 

;;GO DO AN RTI OR RTT TO LOAD THE PSW 

;;WITH A CLEARED "T" BIT 

;; INSURE RO CONTAINS THE MONITORS 

; ; RETURN ADDRESS 

; ;CLEAR THE WORLD 

; ;GO TO MONITOR 

; ;SAVE ROOM 

; ;FOR 

;;ACT11 

;;PUSH OLD PSW AND PC ON STACK 
;;CLEAR THE "T" BIT 
;;RUN WITH TRACE TRAP? 
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SEQ 0091 



4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 



035004 
035006 
035012 
035014 
035020 
035024 



035026 
035026 
035030 
035032 
035034 



001305 
005137 
100402 
052716 
012746 
000002 



000137 
020466 
000000 
377 
035040 



035040 
035040 
035042 
035050 



035054 
035060 
035066 
035072 
035076 
035100 
035102 
035106 
0351 10 
0351 10 
0351 16 
035120 
035126 
035130 
035134 
035136 
035144 
035146 
035154 
035156 
035164 



000020 
035026 



BNE 1$ 

COM $TBIT 

BMI 1$ 

BIS #20, (SP) 

1$: MOV #$LOOP,-(SP) 

SRTRN: RTI 



SLOOP: 

JMP f»(PC) + 

SRTNAD: .WORD LOOP 

$TBIT: .WORD 

$ENULL: .BYTE -1,-1,0 

.EVEN 

.SBTTL SCOPE HANDLER ROUTINE 



104410 
032777 
001 1 14 



035052 000.16 



013746 
012737 
005737 
012637 
000453 
022626 
012637 
000423 

032777 
001404 
127737 
001465 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 



000004 
035100 
177060 
000004 



000004 

000400 
144014 
001103 
001115 
001000 
001110 



;;**** 

;*THIS 

;*AND 

;*AND 

;*THE 

;*SW14 

;*SW11 

;*SW09 

;*SW08 

;*CALL 



;BR IF NO 

;IS IT TIME FOR TRACE TRAP 

;BR IF NO 

;SET TRACE TRAP 

;JUMP TO START OF TEST 

; RETURN— THIS IS CHANGED TO 

;AN "RTT" IF "RTT" IS A LEGAL 

; INSTRUCTION 

JRETURN 

;"T" BIT STATE INDICATOR 
;NULL CHARACTER STRING 



**************** 



************************************** 

ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
LOAD THE TEST NUMBER( STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:0B> 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
=1 LOOP ON TEST 
»1 INHIBIT ITERATIONS 
»1 LOOP ON ERROR 
«1 LOOP ON TEST IN SWR<7:0> 



SCOPE 



;;SCOPE«IOT 



040000 144070 1$ 



$SCOPE: 

CKSWR 

BIT #BIT14,#SWR 

BNE SOVER 
;#**##START OF CODE FOR THE XOR T 
SXTSTR: BR 6$ 



5$: 



144022 
001102 

001103 
143764 
001106 



MOV 

MOV 

TST 

MOV 

BR 

CMP 

MOV 

BR 

6$: ;tlff##tt END 
BIT 
BEQ 
CMPB 
BEQ 

2$: TSTB 
BEQ 
CMPB 
BHI 
BIT 
BEQ 

7$: MOV 
BR 



@#ERRVEC,-(SP) 
#5$,<P>#ERRVEC 
@# 177060 
(SP)+,@#ERRVEC 
SSVLAD 
(SP)+,(SP)+ 
(SP)+,@#ERRVEC 
7$ 
OF ;ODE FOR THE XOR 
#BIT08,3SWR 
2$ 

PSWR, STSTNM 
SOVER 
SERFLG 
3$ 

$ERMAX,$ERFLG 
3$ 

#BIT09,$SWR 
4$ 

$LPERR,$LPADR 
SOVER 



TEST FOR CHANGE IN SOFT-SWR 

LOOP ON PRESENT TEST? 

YES IF SW14=1 
ESTER***** 

IF RUNNING ON THE "XOR" TESTER CHANGE 

THIS INSTRUCTION TO A "NOP" (N0P*240) 

SAVE THE CONTENTS OF THE ERROR VECTOR 

SET FOR TIMEOUT 

TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

GO TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 
TESTER***/!'*' 

LOOP ON SPEC. TEST? 

BR IF :\o 

ON THE RIGHT TEST? SWR<7:0> 

BR IF YES 

HAS AN ERROR OCCURRED? 

BR IF ND 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
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SEQ 0093 



4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 



035166 
035172 
035176 
035200 
035206 
035210 
035214 
035216 
035222 
035230 
035232 
035240 
035246 
035252 
035260 
035264 
035270 
035274 
035302 
035310 
035314 
035316 



035320 
035320 
035322 
035326 
035332 
035336 
035342 
035346 
035352 
035360 
035364 
035366 
035374 
035402 
035404 
035410 
035414 
035420 
035426 
035434 



105037 
005037 
000415 
032777 
00101 1 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113"37 
01 1637 
01 1637 
005037 
112737 
013777 
013716 
000002 
000200 



104410 
010037 
010137 
010237 
010337 
010437 
010537 
1 13737 
105237 
001775 
013777 
032777 
001402 
104401 
005237 
01 1637 
162737 
117737 
032777 



001103 
001212 



001162 
001164 
001 166 
001170 
001172 
001174 
001 102 
001103 

001102 
002000 

001216 
001112 
001116 
000002 
143464 
020000 



4S: 



004000 143732 3$: 



001104 
001212 

000001 
035316 
001102 
001102 
001106 
001110 
001214 
000001 
001102 
001106 



001104 
001212 



1$: 



001115 

143632 $OVER: 



SMXCNT: 
.SBTTL 



CLRB 
CLR 
BR 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGE 
MOV 
MOV 

SSVLAD: INCB 
MOVB 
MOV 
MOV 
CLR 
MOVB 
MOV 
MOV 
RTI 
200 
ERROR 



143546 
143536 



001 116 
001114 
143476 



SERFLG 

STIMES 

1$ 

#BIT11 f MWR 

1$ 

SPASS 

1$ 

$ICNT 

STIMES, SICNT 

$OVER 

#1 , SICNT 

SMXCNT, STIMES 

STSTNM 

$TSTNM,$TESTN 

(SP),$LPADR 

(SP),$LPERR 

SESCAPE 

#1 .SERMAX 

STSTNM, ©DISPLAY 

SLPADR.(SP) 



HANDLER ROUTINE 



; ;ZERO THE ERROR FLAG 

; {CLEAR THE NUMBER OF ITERATIONS TO MAKE 

;; ESCAPE TO THE NEXT TEST 

;;INHIBIT ITERATIONS? 

;;BR IF YES 

{{IF FIRST PASS OF PROGRAM 

{{ INHIBIT ITERATIONS 

;; INCREMENT ITERATION COUNT 

;;CHECK THE NUMBER OF ITERATIONS MADE 

;;BR IF MORE ITERATION REQUIRED 

; {REINITIALIZE THE ITERATION COUNTER 

{{SET NUMBER OF ITERATIONS TO DO 

J {COUNT TEST NUMBERS 

;;SET TEST NUMBER IN APT MAILBOX 

;;SAVE SCOPE LOOP ADDRESS 

;;SAVE ERROR LOOP ADDRESS 

{ {CLEAR THE ESCAPE FROM ERROR ADDRESS 

;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 

; ;DISPLAY TEST NUMBER 

;; FUDGE RETURN ADDRESS 

; ;FIXES PS 

;;MAX. NUMBER OF ITERATIONS 



) 



*THIS 

*SAVE 

*AND 

*THE 

*r-M5 

*SW13 

*SW10 

*SW09 

*CALL 



ROUTINE WILL INCREMENT THE ERROR PLAG AND THE ERROR COUNT, 

THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
GO TO ERRTYP ON ERROR 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

1 HALT ON ERROR 

1 INHIBIT ERROR TYPEOUTS 

1 BELL ON ERROR 

1 LOOP ON ERROR 



ERROR N 



S;ERROR*EMT AND N=ERROR ITEM NUMBER 



7$: 



CKSWR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

INCB 

BEQ 

MOV 

BIT 

BEQ 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 



RO.SREGO 

R1 ,$REG1 

R2.SREG2 

R3.SREG3 

R4.SREG4 

R5.SREG5 

STSTNM, TESTNO 

SERFLG 

7$ 

STSTNM.PDISPLAY 

#BIT10,$SWR 

1$ 

,$BELL 

SERTTL 

(SP).SERRPC 

#2,$ERRPC 

e$ERRPC,$ITEMB 

#BIT13,9SWR 



;;TEST FOR CHANGE IN SOFT-SWR 

;SAVE THE CONTENTS OF RO 

{SAVE THE CONTENTS OF R1 

{SAVE THE CONTENTS OF R2 

;SAVE THE CONTENTS OF R3 

{SAVE THE CONTENTS OF R4 

{SAVE THE CONTENTS OF R5 

;SAVE THE TEST NUMBER 

{ ;SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 

{ {DISPLAY TEST NUMBER AND ERROR FLAG 

; ;BELL ON ERROR? 

; ;NO - SKIP 

; ;RING BELL 

:: COUNT THE NUMBER OF ERRORS 

{{GET ADDRESS OF ERROR INSTRUCTION 

;;STRIP AND SAVE THE ERROR ITEM CODE 
;:SKIP TYPEOUT IF SET 



) 
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SEQ 0093 



4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 



035442 
035444 
035450 
035454 
035454 
035462 
035464 
035472 
035476 
035477 
035500 
035502 
035506 
035510 
035512 
035514 
035522 
035524 
035530 
035534 
035536 
035542 
035542 
035550 
035552 
035554 
035554 



001004 

004737 035556 

104401 001223 

122737 000001 001246 

001007 

113737 001114 035476 

004737 040110 

000 

000 
000777 

005777 143432 
100002 
000000 
104410 

032777 001000 143416 
001402 

013716 001110 
005737 001214 
001402 
013716 001214 



22$: 

2$: 



022737 
001001 
000000 



034760 000042 



3$: 
4$: 
5$: 

6$: 
.SBTTL 



BNE 
JSR 
TYPE 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEQ 

MOV 

TST 

BEQ 

MOV 

CMP 
BNE 
HALT 



20$ 

PC, ERRTYP 

.SCRLF 

#APTENV,$ENV 

2$ 

$ITEMB,21$ 

PCSATY4 





22$ 

@>SWR 

3$ 



#BIT09,3SWR 

4$ 

SLPERR.(SP) 

SESCAPE 

5$ 

$ESCAPE,(SP) 

#$ENDAD,f»#42 
6$ 



; ;SKIP TYPEOUTS 

;;GO TO USER ERROR ROUTINE 



{RUNNING IN APT MODE 

;NO,SKI, APT ERROR REPORT 

;SET ITEM NUMBER AS ERROR NUMBER 

{REPORT FATAL ERROR TO APT 



{APT ERROR LOOP 

{HALT ON ERROR 

{SKIP IF CONTINUE 

{HALT ON ERROR! 

{TEST FOR CHANGE IN SOFT-SWR 

{LOOP ON ERROR SWITCH SET? 

;BR IF NO 

{FUDGE RETURN FOR LOOPING 

{CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

{FUDGE RETURN ADDRESS FOR ESCAPE 

{ACT-11 AUTO-ACCEPT? 

{BRANCH IF NO 

{YES 



RTI ; {RETURN 

ERROR MESSAGE TYPEOUT ROUTINE 



♦ ♦♦♦♦if********************************************************* 
THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (SERRTB) , 
AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



NOTES: 



THIS ROUTINE PROVIDES AN AUTOMATIC "CARRIAGE RETURN-LINE FEED" 

FOR "EM", "DH", AND "DT". 

TWO SPACES ARE TYPED AFTER EACH NUMBER FOR "DT" 

FOR $ITEMB*0, JUST THE ERROR PC IS TYPED 

THE AVAILABLE FORMATS FOR TYPING DATA ARE: 

DF FORMAT 

TYPE A 6 DIGIT OCTAL NUMBER (FROM 16-BIT BINARY) 

1 TYPE A DECIMAL NUMBER WITHOUT LEADING ZEROS 

2 TYPE A 16 DIGIT BINARY NUMBER 

3 TYPE A 6 DIGIT OCTAL NUMBER (FROM 1B-BIT BINARY) 



035556 
035556 
035562 
035564 
035566 
035572 



104401 
010046 
005000 
153700 
001004 



035574 013746 001116 



TYPE 

MOV 

CLR 

BISB 

BNE 

MOV 



, SCRLF 

R0,-(SP) 

RO 

e#$lTEMB,R0 

1$ 

*ERRPC,-(SP) 



{"CARRIAGE RETURN" & "LINE FEED" 

{SAVE RO 

{PICKUP THE ITEM INDEX 

;IF ITEM NUMBER IS ZERO, JUST 
{TYPE THE PC OF THE ERROR 
{{SAVE SERRPC FOR TYPEOUT 
; {ERROR ADDRESS 



CFKTHBO PDP 11/34 MEM MCNT DIAG MACY11 30A(1052) 27-JUN-7B 09:33 PAGE 95 
CFKTHB.P11 27-JUN-78 09527 ERROR MESSAGE TYPEOUT ROUTINE 



SEO 0094 



4509 


035600 


104402 




4510 


035602 


000471 




4511 


035604 


005300 




4512 


035606 


006300 




4513 


035610 


006300 




4514 


035612 


006300 




4515 


035614 


062700 


001412 


4516 


035620 


012037 


035630 


4517 


035624 


001404 




4518 


035626 


104401 




4519 


035630 


000000 




4520 


035632 


104401 


001223 


4521 


035636 


012037 


035646 


4522 


035642 


001404 




4523 


035644 


104401 




4524 


035646 


000000 




4525 


035650 


104401 


001223 


4526 


035654 


010146 




4527 


035656 


012001 




4528 


035660 


001441 




4529 


035662 


012000 




4530 


035664 


105710 




4531 


035666 


001003 




4532 








4533 








4534 


035670 


013146 




4535 


035672 


104402 




4536 


035674 


000425 




4537 








4538 








4539 


035676 


121027 


000001 


4540 


035702 


001003 




4541 


035704 


013146 




4542 


035706 


104 ,05 




4543 


035710 


000417 




4544 








4545 








4546 


035712 


121027 


000003 


4547 


035716 


001003 




4548 


035720 


013146 




4549 


035722 


104406 




4550 


035724 


000411 




4551 








4552 








4553 


035726 


012146 




4554 


035730 


004737 


041162 


4555 


035734 


062716 


000005 


4556 


035740 


012637 


035746 


4557 


035744 


104401 




4558 


035746 


000000 




4559 








4560 


035750 


005711 




4561 


035752 


001404 




4562 


035754 


104401 


035776 


4563 


035760 


105720 




4564 


035762 


000740 





;GO TYPE— OCTAL ASCIKALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 
PICKUP "ERROR MESSAGE" POINTER 
SKIP TYPEOUT IF NO POINTER 
TYPE THE "ERROR MESSAGE" 
"ERROR MESSAGE" POINTER GOES HERE 
"CARRIAGE RETURN" fi "LINE FEED" 
PICKUP "DATA HEADER" POINTER 
SKIP TYPEOUT IF 
TYPE THE "DATA HEADER" 
"DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" & "LINE FEED- 
SAVE R1 

PICKUP "DATA TABLE" POINTER 
BR IF NO DATA TO BE TYPED 
PICKUP "DATA FORMAT" POINTER 
IS IT FORMAT 0? 
BR IF NO 

;*THIS CODE IS FOR OCTAL (16-BIT) FORMAT (DF*0) 

MOV ©(R1)+,-(SP) ;;SAVE @(R1)+ FOR TYPEOUT 

TYPOC ;;GO TYPE— OCTAL ASCII(ALL DIGITS) 

BR 11$ 

;*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 





TYPOC 






BR 


13$ 


1$! 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


#$ERRTB,R0 




MOV 


(R0)+,2$ 




BEQ 


3$ 




TYPE 




2$: 


.WORD 







TYPE 


,$CRLF 


3$: 


MOV 


(R0)+,4$ 




BEQ 


5$ 




TYPE 




4$: 


.WORD 







TYPE 


t $CRLF 


5$: 


MOV 


R1,-(SP) 




MOV 


(R0)+ t R1 




BEQ 


12$ 




MOV 


(R0)+,R0 


6$: 


TSTB 


(RO) 




BNE 


7$ 



7$: 



CMPB 


(R0),AM 


BNE 


8$ 


MOV 


»(R1)+ t -(SP) 


TYPDS 




BR 


11$ 



;IS IT FORMAT 1? 

; BRANCH IF NO 

{{SAVE @>(R1)+ FOR TYPEOUT 

;;GO TYPE— DECIMAL ASCII WITH SIGN 



{•THIS CODE IS FOR BINARY FORMAT (DF=2) 
8$: CMPB (R0),#2 {IS IT FORMAT 2? 

BNE 9$ {BRANCH IF NO 

MOV ©(R1)+,-(SP) ;;SAVE @(R1)+ FOR TYPEOUT 
TYPBN ;;GO TYPE— BINARY ASCII 

BR 11$ 

{•THIS CODE IS TOR OCTAL (18-BIT) FORMAT (DF=3) 



9$: 



MOV 


(R1)+,-(SP) 


JSR 


PC.SDB20 


ADD 


*5,(SP) 


MOV 


(SP)+,10$ 


TYPE 




.WORD 





TST 


(RD 


BEQ 


12$ 


TYPE 


,14$ 


TSTB 


(RO)* 


BR 


6$ 



{PUT ADDRESS OF FIRST LOC. ON STACK 
{CONVERT TWO LOCS. TO AN ASCII STRING 
;ONLY NEED 6 CHARACTERS NOT 11 
;PUT ADDRESS OF ASCII CHARS. AT 10$ 
;TYPE OCTAL VALUE OF 1B-BIT BINARY NO. 



; IS THERE ANOTHER NUMBER? 

;BR IF NO 

{TYPE TWO(2) SPACES 

; POINT TO NEW "DATA FORMAT" 

{LOOP 
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SEQ 0095 



4565 

4566 035764 



012601 
035766 012600 



4567 

4568 035770 104401 

4569 035774 000207 

4570 035776 020040 

4571 036002 
4572 



12$: 


MOV 


(SP)+,R1 


13$: 


MOV 


(SP)+,R0 




TYPE 


,$CRLF 




RTS 


PC 


14$: 


.ASCIZ 
.EVEN 


/ / 



{RESTORE R1 
{RESTORE RO 
{"CARRIAGE RETURN" & 
{RETURN 
;TW0(2) SPACES 
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.SBTTL ***** SUBROUTINES USED BY THIS PROGRAM ***** 

.SBTTL TURN OFF T-BIT AND SAVE CURRENT PSW 

..************** f ************************************************ 

• * 

;* THIS SUBROUTINE IS USED TO TURN wFF THE TRACE TRAP BIT IN THE PSW 

;* IF IT IS ON. THE PROCESSOR STATUS IS SAVED IN "TBITPS" SO THAT 

;* THE PSW CAN BE RESTORED TO ITS PREVIOUS CONDITION WHEN CONDITIONS 

;* WARRANT T-BIT TRAPPING. 



SE9 0098 



4573 








4574 








4575 








4576 








4577 








4578 








4579 








45B0 








4581 








4582 








4583 








4584 


036002 


033727 


177776 000020 


4585 


036010 


00141 1 




4586 


036012 


013746 


177776 


4587 


036016 


01 1637 


001372 


4588 








4589 


036022 


042716 


000020 


4590 


036026 


012746 


036034 


4591 


036032 


000006 




4592 


036034 


000207 




4593 








4594 








4595 








4596 








4597 








4598 








4599 








4600 








4601 








4602 


036036 


033727 


001372 000020 


4603 


036044 


001410 




4604 


036046 


013746 


001372 


4605 


036052 


012737 


000340 001372 


4606 


036060 


012746 


036066 


4607 


036064 


000006 




4608 


036066 


000207 




4609 








4610 








4611 








4612 








4613 








4614 








4615 








4616 








4617 








4618 








4619 








4620 








4621 


036070 


012702 


000010 


4622 


036074 


012701 


172300 


4623 


036100 


012721 


177777 


4624 


036104 


077203 




4625 


036106 


012^02 


000010 


4626 


036112 


012701 


172340 


4627 


036116 


012721 


177777 


4628 


036122 


077203 





•*#*«***********************$«$**** 



A*******************! 



1$: 



BIT PSW,#TBIT ;IS THE T-BIT SET IN THE PSW? 

BEO 1$ JEXIT IF NO 

MOV PSW,-{SP) ;PUSH PRESENT PSW ON THE STACK 

MOV (SP),TBITPS ;ALSO SAVE IT IN "TBITPS" FOR 

{RESTORING LATER 

BIC #TBIT,(SP) {CLEAR THE T-BIT (BIT 4) IN THE PSW 

MOV #1$,-(SP) {PUSH PC OF "RTS" ON STACK 

RTT ; "RETURN" TO 1$ WITH T-BIT OFF 

RTS PC ; RETURN TO PROGRAM 



.SBTTL TURN ON T-BIT AND RESTORE PREVIOUS PSW 

J************************************************ 



* 41 ********** * 



THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS TO ITS 
PREVIOUS CONDITION BY RESTORING THE "T-BIT PSW" SAVED BY THE 
"TOFF" SUBROUTINE IN THE "TBITPS" LOCATION. 



************* 



********* 



BIT 


TBITPS, #TBIT 


BEQ 


1S 


MOV 


TBITPS, -(SP) 


MOV 


#340, TBITPS 


MOV 


#1$,-(SP) 


RTT 




RTS 


PC 



JWAS T-BIT ON IN THE PREVIOUS PSW? 

;EXIT IF NO 

;PUSH PREVIOUS PSW ON THE STACK 

{RESET THE "TBITPS" LOCATION 

;PUSH PC OF "RTS" ON STACK 

; "RETURN" TO 1$ WITH T-BIT RESTORED 

; RETURN TO PROGRAM 

.SBTTL SET ALL WRITEABLE BITS iN ALL PAR/PDR'S 

*************************************************************** 

THIS SUBROUTINE IS USED BY THE PAR/PDR DUAL ADDRESSING TEST 
TO SET ALL WRITEABLE BITS IN ALL KERNEL AND USE PAR'S AND 
PDR'S TO A 1. THE "INITIAL STATE" OF HAVING ALL BITS*1 IS 
USED TO SEE THAT ONLY ONE REGISTER IS CLEARED IN RESPONSE TO 
A SINGLE PAR OR PDR ADDRESS. 



************* 



******** 



******** 



********** 



SETRE 


G: MOV 


#10, R2 




MOV 


#KIPDR0,R1 


1$: 


MOV 


#-1 ,(R1 ) + 




SOB 


R2,1$ 




MOV 


#10, R2 




MOV 


#KIPAR0,R1 


2$; 


MOV 


#-1, (R1)+ 




SOB 


R2 t 2$ 



{LOAD LOOP COUNTER WITH AN B 
;LOAD ADDRESS OF FIRST PDR INTO R1 
;SET BITS IN KERNEL PDR TO 1 
{LOOP TO 1$ UNTIL ALL KERNEL PDR'S 
;LOAD LOOP COUNTER WITH AN 8 
{LOAD ADDRESS OF FIRST PAR INTO R1 
•SET BITS IN A KERNEL PAR TO 1 
JLOOP TO 2$ UNTIL ALL KERNEL PAR'S 
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SEO 0097 



4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4571 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 



036124 012702 

036130 012701 

036134 012721 

036140 077203 

036142 012702 

036146 012701 

036152 012721 

036156 077203 

036160 000207 



036212 
036216 
036220 
036224 
036230 
036234 
036236 
036240 
036242 
036244 
036246 



036250 
036254 
036256 
036262 
036266 
036272 
036274 
036276 
036300 



062,01 
077411 
012701 
012704 
012705 
01 1102 
020205 
001403 
020100 
001401 
104016 



062701 
077411 
012701 
012704 
012705 
01 1102 
020205 
001403 
020100 



000010 
177600 
177777 

000010 
177640 
177777 



036162 

036162 012701 

036166 012704 

036172 012705 

036176 011102 

036200 020205 

036202 001403 

036204 020100 

036206 001401 

036210 104016 



172300 
000010 
077416 



172340 
000010 
007777 



177600 
000010 
077416 



MOV #10, R2 ;LOAD LOOP COUNTER WITH AN 8 

MOV #UIPDR0,R1 ;LOAD ADDRESS OF FIRST PDR INTO R1 

MOV #-1,(R1)+ ;SET BITS IN A USER PDR TO 1 

SOB R2,3$ {LOOP TO 3$ UNTIL ALL USER PDR'S LOADED 

MOV #10, R2 ;LOAD LOOP COUNTER WITH AN 8 

MOV #UIPAR0,R1 {LOAD ADDRESS OF FIRST PAR INTO R1 

MOV #-1,(R1)+ ;SET BITS IN A USER PAR TO 1 

SOB R2,4$ ;LOOP TO 4$ UNTIL ALL USER PAR'S LOADED 

RTS PC ;RETURN TO TEST 



.SBTTL 

*#***!( 



READ & COMPARE KERNEL & USER PAR/PDR'S 



THIS SUBROUTINE IS USED BY PAR/PDR DUAL ADDRESSING TEST TO 
READ ALL THE PAR'S AND PDR'S TO SEE THAT ONLY ONE REGISTER 
WAS CLEARED IN RESPONSE TO A SINGLE PAR OR PDR ADDRESS. 
ANY FAILURES FOUND BY THE PAR/PDR DUAL ADDRESSING TEST WILL 
BE REPORTED BY THIS SUBROUTINE. 



****** 
CMPREG: 



***************** 



**************** 



5$: 



MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
ERROR 



ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
ERROR 



ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 



#KIPDR0,R1 

#10, R4 

#77416,R§ 

(R1),R2 

R2.R5 

2$ 

R1,R0 

2$ 

16 



#2,R1 

R4,1$ 

#KIPAR0,R1 

#10 f R4 

#7777 f R5 

(R1),R2 

R2.R5 

4$ 

R1.R0 

4$ 

.6 



#2,R1 

R4.3S 

#UIPDR0,R1 

#10, R4 

#77416, R5 

(R1),R2 

R2,R5 

6$ 

R1,R0 



LOAD ADDRESS OF FIRST KERNEL PDR IN R1 

LOAD LOOP COUNTER WITH AN 8 

PUT EXPECTED PDR CONTENTS IN R5 

READ A KERNEL PDR INTO R2 

ARE ALL WRITEABLE BITS SET AL EXPECTED? 

BRANCH IF YES 

WAS IT THE REG. THAT WAS CLEARED? 

BRANCH IF YES 

A PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

AN "RTS PC" = 000207 

FORM NEXT KERNEL PDR ADDRESS 

LOOP TO 1$ UNTIL ALL KERNEL PDR'S CHECKED 

LOAD ADDRESS OF FIRST KERNEL PAR IN R1 

LOAD LOOP COUNTER WITH AN 8 

PUT EXPECTED PAR CONTENTS IN R5 

READ A KERNEL PAR INTO R2 

ARE ALL WRITEABLE BITS SET AS EXPECTED? 

BRANCH IF YES 

WAS IT THE REG. THAT WAS CLEARED? 

BRANCH IF YES 

A PAR WAS EFFECTED BY CLEARING A DIFFENENT PAR/PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

AN "RTS PC" = 000207 

FORM NEXT KERNEL PAR ADDRESS 

LOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 

LOAD ADDRESS OF FIRST USER PDR IN R1 

LOAD LOOP COUNTER WITH AN 8 

PUT EXPECTED PDR CONTENTS IN R5 

READ A USER PDR INTO R2 

ARE ALL WRITABLE BITS SET AS EXPECTED? 

BRANCH IF YES 

WAS IT THE REG. THAT WAS CLEARED? 
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SEO 0098 



^ 



4685 


036302 


001401 




4686 


036304 


104016 




4687 








4688 








4689 








4690 


036306 


062701 


000002 


4691 


036312 


07741 1 




4692 


036314 


012701 


177640 


4693 


036320 


012704 


000010 


4694 


036324 


012705 


007777 


4695 


036330 


01 1 102 




4696 


036332 


020205 




4697 


036334 


001403 




4698 


036336 


02000 




4699 


036340 


001401 




4700 


036342 


104016 




4701 








4702 








4703 








4704 


036344 


062701 


000002 


4705 


036350 


077411 




4706 


036352 


000207 




4707 








4708 








4709 








4710 








4711 








4712 








4713 








4714 








4715 








4716 








4717 








4718 








4719 








4720 








4721 








4722 








4723 








4724 








4725 


036354 


012702 


172340 


4726 


036360 


032737 


140000 177776 


4727 


036366 


001402 




4728 


036370 


012702 


177640 


4729 


036374 


013700 


001402 


4730 


036400 


072027 


177764 


4731 


036404 


042700 


177761 


4732 


036410 


060002 




4733 


036412 


01 1200 




4734 


036414 


010002 




4735 


036416 


013737 


001402 001406 


4736 


036424 


042737 


160000 00140r. 


4737 


036432 


072227 


177766 


4738 


036436 


042702 


177774 


4739 


036442 


072027 


000006 


4740 


036446 


042700 


000077 



7S: 



BEQ 
ERROR 



ADD 
SOB 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
ERROR 



ADD 
SOB 
RTS 



6$ 
16 



#2,R1 

R4,5$ 

#UIPAR0,R1 

#10, R4 

#7777 f R5 

(R1),R2 

R2.R5 

8$ 

R1.R0 

8$ 

16 



#2,R1 
R4,7$ 
PC 



BRANCH IF YES 

A PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

AN "RTS PC" * 000207 

FORM NEXT USER PDR ADDRESS 

LOOP TO 5$ UNTIL ALL USER PDR ' S CHECKED 

LOAD ADDRESS OF FIRST USER PAR IN R1 

LOAD LOOP COUNTER WITH AN 8 

PUT EXPECTED PAR CONTENTS IN R5 

READ A USER PAR INTO R2 

ARE ALL WRITEABLE BITS SET AS EXPECTED? 

BRANCH IF YES 

WAS IT THE REG. THAT WAS CLEARED? 

BRANCH IF YES 

A PAR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 

FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

AN "RTS PC" = 000207 

FORM NEXT USER PAR ADDRESS 

LOOP TC 7$ UNTIL ALL USER PAR'S CHECKED 

RETURN TO TEST 



.SBTTL 



CONVERT 'IRTUAL ADDRESS TO PHYSICAL ADDRESS 

THIS SUBROUTINE IS USED TO FORM AN 18-BIT PHYSICAL ADDRESS 

(PBA) FROM THE 16-BIT VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE 

PAGE ADDRESS REGISTER (PAR). THE SAME METHOD USED BY THE MEMORY 

MANAGEMENT LOGIC IS USED. VBA <15M3> SELECTS WHICH PAR/PDR 

IS TO BE USED, VBA <5:0>+PBA <5:0>, AND VBA <12:6> IS ADDED 

TO PAR <11:00> TO GIVE PBA <17:6>. BITS <17*.16> OF THE 

PHYSICAL ADDRESS ARE LEFT IN LOC. "PBAHI" AND BITS <15:00> 

ARE LEFT IN LOC. "PBALO". THE PSW'S "CURRENT MODE" BITS 

ARE USED TO SELECT THE KERNEL OR USER PAR/PDR'S. THE ROUTINE 

IS ENTERED WITH LOC. "VIRT1" CONTAINING THE 16-BIT VIRTUAL 

ADDRESS. 



*********************** 



MOV 


#KIPAR0,R2 


BIT 


#140000, PSW 


BEQ 


1$ 


MOV 


#UIPAR0,R2 


MOV 


VIRT1 ,R0 


ASH 


#-14, RO 


BIC 


#177761 ,R0 


ADD 


R0,R2 


MOV 


(R2),R0 


MOV 


R0.R2 


MOV 


VIRT1 , PBALO 


BIC 


#160000, PBALO 


ASH 


#-12,R2 


BIC 


#177774,R2 


ASH 


#6,R0 


BIC 


#77,R0 



I******************************** 

LOAD ADDRESS OF FIRST KERNEL PAR IN R2 

IN USER MODE? 

BRANCH IF NO 

LOAD ADDRESS OF FIRST USER PAR IN R2 

LOAD VIRTUAL ADDR. (VBA) INTO RO 

GET BITS <15:13> DOWN TO BITS <3M> 

MASK OF ALL BITS BUT BITS <3M> 

ADD OFFSET TO BASE PAR ADDRESS 

GET BITS <11:00> FROM APPROPRIATE PAR 

COPY PAR BITS <11:00> INTO R2 

PUT VIRTUAL ADDR. IN LOC. "PBALO" 

CLEAR OFF BITS <15M3> OF ORIGINAL VBA 

GET PAR <11:00> DOWN TO BITS <1 :0> OF R2 

CLEAR OFF ALL BITS BUT BITS <1 :0> 

SHIFT PAR<9:0> TO <15:6> OF RO 

CLEAR BITS <5:0> OF RO 
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4741 036452 060037 001406 
4742 

4743 036456 005502 

4744 036460 010237 001410 

4745 036464 000207 
4746 



ADD RO, PBALO 

ADC R2 

MOV rt2, PBAHI 

RTS PC 



;IN EFFECT, ADD VBA<12:0> TO PAR<9:0> 

;(PAR<9:0> IN BITS <15:6> OF RO ) 

;ADD ANY CARRY TO R2 

;PUT BITS <17'-16> OF PHYSICAL ADDR. IN PBAHI 

{RETURN TO PROGRAM 



« # 
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09:33 PAGE 101 



SEO 0100 



4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
475B 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
47G6 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 



036466 
036474 
036476 
036502 
036504 
036510 
036514 
036520 
036522 
036530 

036532 
036536 
036542 
036546 
036550 
036554 
036556 
036560 
036564 

035566 
036572 

036576 
036602 
036604 
036610 
036614 
036622 
036624 
036632 



036630 
036642 
036644 
036650 
036654 



036656 
036662 
036664 
036670 
036672 



022737 
001 1 14 
105777 
1001 11 
1 17746 
042716 
022726 
001 102 
123757 
C01476 

104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 

021627 
001015 
104401 
062706 
123727 
001003 
012777 
000137 



021627 
001005 
104401 
062706 
000737 



021627 
001022 
005766 
001403 
016677 



000176 001140 

142442 

142436 
177600 
000007 

001134 000001 



037430 
037435 
000176 



142354 
177600 



037416 
000006 
001135 

000100 
037460 



037423 
000006 



000015 
000004 
000002 



000001 
142312 



.SBTTL TTY INPUT ROUTINE 

.ENABL LSB 

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*R0UTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

;*WHEN OPERATING IN TTY FLAG MODE. 

;;IS THE SOFT-SWR SELECTED? 

; ; BRANCH IF NO 

; ;CHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

; ;SAVE THE CHAR 

; {STRIP-OFF THE ASCII 

; ;IS IT A CqNJROL G? 

; ;N0, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 

; {BRANCH IF YES 

{{ECHO THE CONTROL-G ("G) 

;;TYPE CURRENT CONTENTS 

{{SAVE SWREG FOR TYPEOUT 

{{GO TYPE— OCTAL ASCIKALL DIGITS) 

; ; PROMPT FOR NEW SWR 

; {CLEAR COUNTER 

; ;THE NEW SWR 

5 {CHAR THERE? 

; ;IF NOT TRY AGAIN 

; {PICK UP CHAR 

; {MAKE IT 7-BIT ASCII 

; ;IS IT A CONTROL-C? 

; ; BRANCH IF NOT 

;;YES, ECHO CONTROL-C (*C) 

; ; CLEAN UP STACK 

;;REENABLE TTY KEYBOARD INTERRUPTS? 

; ; BRANCH IF NO 

;;ALL.OW TTY KEYBOARD INTERRUPTS 

; {CONTROL-C RESTART 



$ckswr: 


CMP 


0SWREG.SWR 




BNE 


15$ 




TSTB 


P$TKS 




BPL 


15$ 




MOVB 


f>$TKB,-(SP) 




BIC 


/TC177,(SP) 




CMP 


*7, (SP)+ 




BNE 


15$ 




CMPB 


$AUT0B,#1 




BEO 


15$ 




TYPE 


,$CNTLG 


SGTSWR: 


TYPE 


,$MSWR 




MOV 


SWREG, -(SP) 




TYPOC 






TYPE 


,$MNEW 


19$: 


CLR 


"(SP) 




CLR 


-(SP) 


7$: 


TSTB 


@$TKS 




BPL 


7$ 



MOVB P$TKB,-(SP) 
BIC #"C177,(SP) 



8$: 
9$: 
20$: 

10$: 



CMP 

BNE 

TYPE 

ADD 

CMPB 

BNE 

MOV 

JMP 



(SP),03 

9$ 

,$CNTLC 

#6,SP 

$INTAG,#1 

8$ 

#100,S»$TKS 

CNTRLC 



CMP 

BNE 

TYPE 

ADD 

BR 



CMP 
BNE 
TST 
BEO 
MOV 



(SP),#25 

10$ 

,$CNTLU 

#6,SP 

19$ 



(SP),(C15 

16$ 

4(SP) 

11$ 

2(SP),$SWR 



;IS IT A CONTROL-U? 
{BRANCH IF NOT 
;YES, ECHO CONTROL-U ("U) 
; IGNORE PREVIOUS INPUT 
{LET'S TRY IT AGAIN 



; IS IT A <CR>? 

{BRANCH IF NO 

{YES, IS IT THE FIRST CHAR? 

{BRANCH IF YES 

{SAVE NEW SWR 
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SEQ 0101 



4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4016 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4332 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
484B 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 



036700 
036704 
036710 
036716 
036720 
036726 
036730 
036734 
036740 
036742 
036746 
036750 
036754 
036760 
036762 
036764 
036766 
036770 
036774 
037000 
037002 
037006 



062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 
002420 
021627 
003015 
042726 
005766 
001 ;03 
006316 
006316 
006316 
005266 
056616 
000667 
104401 
000720 



000006 
001223 
001135 000001 

000100 142216 

040022 
000060 



000060 
000002 



037010 
037012 
037020 
037024 
037026 
037034 
037042 
037050 
037052 
037056 
037060 
037064 
037070 
037074 
037076 
037100 
037106 
0371 10 
0371 16 
037120 
037126 



11$ 
14$ 



15$: 
16$: 



000002 
177776 



01 1646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000004 
142120 

142114 
177600 
000004 



142062 
177600 
000021 



000004 
000004 
000040 



ADD #6,SP ; {CLEAR UP STACK 

TYPE t $CRLF {{ECHO <CR> AND <LF> 

CMPB $INTAG,#1 ;;RE-ENABLE TTY KBD INTERRUPTS? 

BNE 15$ { {BRANCH IF NOT 

MOV <MOO,f»$TKS {{ RE-ENABLE TTY KBD INTERRUPTS 

RTI ; {RETURN 

JSR PC.STYPEC {{ECHO CHAR 

CMP (SP) f #60 { {CHAR < 0? 

BLT 18$ { {BRANCH IF YES 

CMP (SP),#67 { {CHAR > 7? 

BGT 18$ { {BRANCH IF YES 

BIC #60,(SP)+ 5 {STRIP-OFF ASCII 

TST 2(SP) {{IS THIS THE FIRST CHAR 

BEO 17$ { {BRANCH IF YES 

ASL (SP) {{NO, SHIFT PRESENT 

ASL (SP) {{ CHAR OVER TO MAKE 

asl (SP) ;; room for new one. 

INC 2(SP) {{KEEP COUNT OF CHAR 

BIS -2(SP),(SP) {{SET IN NEW CHAR 

BR 7$ {{GET THE NEXT ONE 

TYPE ,$OUES ; {TYPE ?<CRXLT> 

BR 20$ { {SIMULATE CONTROL-U 
.DSABL LSB 



17$: 



18$: 



JthIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

I ' RDCHR {{ INPUT A SINGLE CHARACTER FROM THE TTY 

♦ RETURN HERE { {CHARACTER IS ON THE STACK 

* {{WITH PARITY BIT STRIPPED OFF 



SRDCHR 
1$: 



000004 
000004 
000023 



2$: 



000140 
00017S 
000004 



4$: 

;*THIS 



MOV 

MOV 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 

CMP 

BGT 

BIC 

RTI 
******* 
ROUTINE 



(SP).-(SP) 

4(SP),2(SP 

f»$TKS 

1$ 

f»$TKB,4(SP 

<TC<177>,4 

4(SP),#23 

3$ 

$$TKS 

2$ 

f>$TKB,-(SP 

)TC177,(SP 

(SP)+,#21 

2$ 

1$ 

4(SP),<M40 

4$ 

4(SP) f #175 

4$ 

#40 f 4(SP) 

I************ 

WILL INPUT 



; {PUSH DOWN THE PC 

; {SAVE THE PS 

{{WAIT FOR 

; ;A CHARACTER 

{ {READ THE TTY 

{ {GET RID OF JUNK IF ANY 

{{IS IT A CONTROL-S? 

{ {BRANCH IF NO 

; {WAIT FOR A CHARACTER 

{{LOOP UNTIL ITS THERE 

{ {GET CHARACTER 

{ {MAKE IT 7-BIT ASCII 

{ {IS IT A CONTROL-Q? 

; ;IF NOT DISCARD IT 

{{YES, RESUME 

; ;IS IT UPPER CASE? 

;; BRANCH IF YES 

; {IS IT A SPECIAL CHAR? 

{ {BRANCH IF YES 

; {MAKE IT UPPER CASE 

; ;G0 BACK TO USER 
*************************************** 
A STRING FROM THE TTY 



) 
(SP) 
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) 



4059 








*CALL: 






4060 








* 


RDLIN 




4061 








* 


RETURN 


HERE 


4862 








* 






4863 














4864 


037130 


010346 


$rdlin: 


MOV 


R3,-(SP) 


4865 


037132 


005046 






CLR 


-(SP) 


4866 


037134 


012703 


037406 


$: 


MOV 


#$TTYIN,R3 


4867 


037140 


022703 


037416 2$* 


CMP 


#$TTYIN+8.,R3 


4068 


037144 


101467 






BLOS 


4$ 


4069 


037146 


10441 1 






RDCHR 




4070 


037150 


112613 






MOVB 


(SP)+,(R3) 


4871 


037152 


122713 


000003 




CMPB 


#3,(R3) 


4872 


037156 


001006 






BNE 


10$ 


4873 


037160 


104401 


037416 




TYPE 


f $CNTLC 


4874 


037164 


005726 






TST 


(SP) + 


4875 


037166 


012603 






MOV 


(SP)+,R3 


4876 


037170 


000137 


037460 




JMP 


CNTRLC 


4377 


037174 


122713 


000177 


0$: 


CMPB 


#177,(R3) 


4878 


037200 


001022 






BNE 


5$ 


4879 


037202 


005716 






TST 


(SP) 


4880 


037204 


001007 






BNE 


6$ 


4881 


037206 


112737 


000134 037404 




MOVB 


#'\,9$ 


4882 


037214 


104401 


037404 




TYPE 


,9$ 


4883 


037220 


012716 


177777 




MOV 


#-1,(SP) 


4884 


037224 


005303 


6$: 


DEC 


R3 


4885 


037226 


020327 


037406 




CMP 


R3,0$TTYIN 


4886 


037232 


103434 






BLO 


4$ 


4887 


037234 


11 1337 


037404 




MOVB 


(R3),9$ 


4888 


037240 


104401 


037404 




TYPE 


.9$ 


4889 


037244 


000735 






BR 


2$ 


4890 


037246 


005716 


5S: 


TST 


(SP) 


4891 


037250 


001406 






BEQ 


7$ 


4392 


037252 


112737 


000134 037404 




MOVB 


#'\,9$ 


4893 


037260 


104401 


037404 




TYPE 


,9$ 


4894 


037264 


005016 






CLR 


(SP) 


4895 


037266 


122713 


000025 


7%: 


CMPB 


#25, (R3) 


4896 


037272 


001003 






BNE 


B$ 


4897 


037274 


104401 


037423 




TYPE 


,$CNTLU 


4898 


037300 


000715 






BR 


1$ 


4899 


037302 


122713 


000022 


3$: 


CMPB 


#22, (R3) 


4900 


037306 


00101 1 






BNE 


3$ 


4901 


037310 


105013 






CLRB 


(R3) 


4902 


037312 


104401 


001223 




TYPE 


,$CRLF 


4903 


037316 


104401 


037406 




TYPE 


,$TTYIN 


4904 


037322 


000706 






BR 


2$ 


4905 


037324 


104401 


001222 


4$: 


TYPE 


,$QUES 


4906 


037330 


000701 






BR 


1$ 


4907 


037332 


11 1337 


037404 


3$: 


MOVB 


(R3),9$ 


4908 


037336 


104401 


037404 




TYPE 


,9$ 


4909 


037342 


122723 


000015 




CMPB 


015,(R3)* 


4910 


037346 


001274 






BNE 


2$ 


4911 


037350 


105O63 


177777 




CLRB 


-1(R3) 


4912 


037354 


104401 


001224 




TYPE 


,$LF 


4913 


037360 


005726 






TST 


(SP) + 


4914 


037362 


012603 






MOV 


(SP)+,R3 



; INPUT A STRING FROM THE TTY 

[ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

;TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R- 

CLEAR THE RUBOUT KEY 

GET ADDRESS 

BUFFER FULL? 

BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 

GET CHARACTER 

IS IT A CONTROL-C? 

BRANCH IF NO 

TYPE A CONTROL-C (~C) 

CLEAN RUBOUT KEY OFF OF THE STACK 

RESTORE R3 

GOTO CONTROL-C RESTART 

IS IT A RUBOUT 

BR IF NO 

IS THIS THE FIRST RUBOUT? 

BR IF NO 

TYPE A BACK SLASH 

[SET THE RUBOUT KEY 

; BACKUP BY ONE 

;STACK EMPTY? 

;BR IF YES 

;SETUP TO TYPEOUT THE DELETED CHAR. 

;G0 TYPE 

;G0 READ ANOTHER CHAR. 

;RUBOUT KEY SET? 

;BR IF NO 

;TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 

IS CHARACTER A CTRL U? 

BR IF NO 

TYPE A CONTROL "U B 

GO START OVER 

IS CHARACTER A ""R"? 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR" & "LF" 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A '?' 

CLEAR THE BUFFER AND LOOP 

ECHO THE CHARACTER 

;CHECK FOR RETURN 

[LOOP IF NOT RETURN 

-.CLEAR RETURN (THE 15) 

[TYPE A LINE FEED 

;CLEAN RUBOUT KEY FROM THE STACK 

; RESTORE R3 
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SEO 0103 



4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 



037364 
037366 
037374 
037402 
037404 
037405 
037406 
037416 
037423 
037430 
037435 
037442 
037446 
037454 



01 1546 
016566 
012766 
000002 

000 

000 
000010 
041536 

136 
043536 

015 
036440 
020040 
020075 
037460 



000004 
037406 



005015 
006525 
005015 
051412 
000040 
042516 
000 



000002 
000004 



000 
000012 
000 





MOV 


(SP),-(SP) 




MOV 


4(SP),2(SP) 




MOV 


#$TTYIN,4(SP) 




RTI 




9$: 


• BYTE 







.BYTE 





$ttyin: 


.BLKB 


B. 


SCNTLC: 


.ASCIZ 


/"C/<15><12> 


SCNTLU: 


.ASCIZ 


/~U/<15X12> 


$cntlg: 


.ASCIZ 


/"G/<15><12> 



051127 SMSWR: .ASCIZ <15><12>/SWR = / 
020127 SMNEW: .ASCIZ / NEW - / 



.SBTTL CONTROL-C SERVICING ROUTINE 



[ADJUST THE STACK AND PUT ADDRESS OF THE 
; FIRST ASCII CHARACTER ON IT 

[RETURN 

[STORAGE FOR ASCII CHAR. TO TYPE 

[TERMINATOR 

[RESERVE 8 BYTES FOR TTY INPUT 

[CONTROL "C" 

[CONTROL "U" 

[CONTROL "G" 



THE FOLLOWING CODE IS EXECUTED WHEN A CONTROL-C HAS 
BEEN TYPED INSTEAD OF A NEW SWITCH »FG. VALUE. 
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SEQ 0104 



4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 



037460 
037466 
037472 
037476 
037504 
037510 
037512 
037516 
037522 
037524 
037526 
037532 
037534 
037537 
037544 
037552 
037560 
037566 
037567 
037574 
037602 



013737 
005237 
104401 
113737 
013746 
104402 
104^01 
013746 
104-05 
104407 
000137 
000000 
020040 
112 
043516 
04710b 
050055 
012 
124 
020117 
047123 



037610 
037614 
037616 
037620 
037622 
037624 
037630 
037636 
037640 
037646 
037650 
037654 



105737 
100002 
000000 
000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 



(IN OTHER WORDS, AFTER A CONTROL-G WAS TYPED). 

A NEW SWITCH REG. VALUE WILL BE ASKED FOR. 

THE TEST NUMBER AND PASS NUMBER WILL BE TYPED, 

AND THEN THE PROGRAM WILL GO TO "END-OF-PASS" AND CONTINUE 



001234 
001210 
037537 
001102 
037532 

037534 
001210 



034554 

000 
046525 
052040 
026504 
051501 

051505 
050040 
006517 



001210 CNTRLC: 



044520 
020117 
043117 
006523 

047124 
051501 
000012 



1$: 
2$: 

CMSG: 



MOV 

INC 

TYPE 

MOVB 

MOV 

TYPOC 

TYPE 

MOV 

TYPDS 

GTSWR 

JMP 

.WORD 

.ASCJZ 

.ASCII 



$PASS,$TMP5 

STMP5 

,CMSG 

$TSTNM,1$ 

1$,-(SP) 

,2$ 
$TMP5,-(SP) 



SEOP+2 


/ / 
/JUMPING TO 



;GET THE VALUE OF "SPASS" 
;FORM CURRENT PASS NO. 
;TYPE THE TEST STOPS MESSAGE 
;SAVE THE TEST NUMBER 
; J SAVE 1$ FOR TYPEOUT 
{{GO TYPE—OCTAL ASCII(ALL DIGITS) 
;TYPE 2 SPACES 
;;SAVE STMP5 FOR TYPEOUT 
;;G0 TYPE— DECIMAL ASCII WITH SIGN 
;ASK FOR NEW SWR VALUE 
{CONTINUE AT SEOP+2 
; BUFFER FOR TEST NUMBER 
;TWO SPACES AND THE STOP MESSAGE 
END-0F-PASS/<1 5X1 2> 



.ASCIZ 'TESTNO PASSN0/<15><1 2> 



.EVEN 
.SBTTL TYPE ROUTINE 



• t {.it************************************************************ 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 

*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•NQTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

*N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



000002 
000001 



037660 
040100 



001246 
001247 



■CALL: 

•1) USING A TRAP INSTRUCTION 


TYPE 


, MESADR 


•OR 




TYPE 




MESADR 




'YPE! TSTB 


STPFLG 


BPL 


1$ 


HALT 




BR 


3$ 


;: mov 


RO,-(SP) 


MOV 


P2(SP),R0 


CMPB 


#APTENV,$ENV 


BNE 


62$ 


BITS 


#APTSPOOL,$ENVM 


BEQ 


62$ 


MOV 


R0,61$ 


JSR 


PC,$ATY3 



; ;IS THERE A TERMINAL? 

;;BR IF YES 

;;HALT HERE IF NO TERMINAL 

; ; LEAVE 

; ;SAVE RO 

;;GET ADDRESS OF ASCIZ STRING 

; {RUNNING IN APT MODE 

;;NO,GO CHECK FOR APT CONSOLE 

; ; SPOOL MESSAGE TO APT 

{{NO.GO CHECK FOR CONSOLE 

; J SETUP MESSAGE ADDRESS FOR APT 

{ J SPOOL MESSAGE TO APT 
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SEQ 0105 



4991 


037660 


000000 






61$: 


.word 





4992 


037662 


132737 


000040 


001247 


62$: 


BITB 


#APTCSUP,$ENVM 


4993 


037670 


001003 








BNE 


60$ 


4994 


037672 


112046 






2$: 


MOVB 


v R0)+,-(SP) 


4995 


037S74 


001005 








BNE 


4$ 


4996 


037676 


005726 








TST 


(SP) + 


4997 


037700 


012600 






60$: 


MOV 


(SP)+,RO 


4998 


037702 


062716 


000002 




3$: 


ADD 


#2,(SP) 


4999 


037706 


000002 








RTI 




5000 


037710 


122716 


000011 




4$: 


CMPB 


#HT,(SP) 


5001 


037714 


001430 








BEQ 


8$ 


5002 


037716 


122716 


000200 






CMPB 


#CRLF,(SP) 


5003 


037722 


001006 








BNE 


5$ 


5004 


037724 


005726 








TST 


(SP) + 


5005 


037726 


104401 








TYPE 




5006 


037730 


001223 








$CRLF 




5007 


037732 


105037 


040066 






CLRB 


$CHARCNT 


5008 


037736 


000755 








BR 


2$ 


5009 


037740 


004737 


040022 




5$: 


JSR 


PC.STYPEC 


5010 


037744 


123726 


001156 




6$: 


CMPB 


$FILLC,(SP)+ 


5011 


037750 


001350 








BNE 


2$ 


5012 


037752 


013746 


001154 






MOV 


$NULL,-(SP) 


5013 
5014 


037756 


105366 


000001 




7$: 


DECB 


KSP) 


5015 


037762 


002770 








BLT 


6$ 


5016 


037764 


004737 


040022 






JSR 


PCSTYPEC 


5017 


037770 


105337 


040066 






DECB 


$CHARCNT 


5018 


037774 


000770 








BR 


7$ 


5019 
5020 










{HORIZONTAL TAB 


I PROCESSOR 


5021 
5022 


037776 


112716 


000040 




8$: 


MOVB 


#' ,(SP) 


5023 


040002 


004737 


040022 




9$: 


JSR 


PCSTYPEC 


5024 


040006 


132737 


000007 


040066 




BITB 


#7,$CHARCNT 


5025 


040014 


001372 








BNE 


9$ 


5026 


040016 


005726 








TST 


(SP) + 


5027 


040020 


000724 








BR 


2$ 


5028 


040022 


105777 


141122 




STYPEC: 


TSTB 


«»$tps 


5029 


040026 


100375 








BPL 


$TYPEC 


5030 


040030 


116677 


000002 


141114 




MOVB 


2(SP),«»$TPB 


5031 


040036 


122766 


000015 


000002 




CMPB 


#CR,2(SP) 


5032 


040044 


001003 








BNE 


1$ 


5033 


040046 


105037 


040066 






CLRB 


$CHARCNT 

$TYPEX 

#LF,2(SP) 


5034 
5035 


040052 
040054 


000406 
122766 


000012 


000002 


1$: 


BR 
CMPB 


5036 


040062 


001402 








BEQ 


STYPEX 


5037 


040064 


105227 








INCB 


(PC) + 


5038 


040066 


000000 






$charcnt:.word 





5039 


040070 


000207 






STYPEX! 


: RTS 


PC 


5040 
5041 










.SBTTL 


APT COMMUNICATIONS ROU 


5042 
5043 
5044 










.. **************************** 


040072 


112737 


000001 


040336 


SATY1: 


MOVB 


#1,$FFLG 


5045 


040100 


112737 


000001 


040334 


$ATY3: 


MOVB 


#1,$MFLG 


5046 


040106 


000403 








BR 


$ATYC 



{MESSAGE ADDRESS 

{APT CONSOLE SUPPRESSED 

;YES, SKIP TYPE OUT 

{PUSH CHARACTER TO BE TYPED ONTO STACK 

;BR IF IT ISN'T THE TERMINATOR 

;IF TER.V.INATOR POP IT OFF THE STACK 

{RESTORE RO 

{ADJUST RETURN PC 

{RETURN 

{BRANCH IF <HT> 

{BRANCH IF NOT <CRLF> 

{POP <CRXLF> EQUIV 
{TYPE A CR AND LF 

{CLEAR CHARACTER COUNT 

{GET NEXT CHARACTER 

{GO TYPE THIS CHARACTER 

;IS IT TIME FOR FILLER CHARS.? 

{IF NO GO GET NEXT CHAR. 

{GET # OF FILLER CHARS. NEEDED 

{AND THE NULL CHAR. 

{DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 

{DO NOT COUNT AS A COUNT 

{LOOP 



{REPLACE TAB WITH SPACE 

{TYPE A SPACE 

{BRANCH IF NOT AT 

{TAB STOP 

{POP SPACE OFF STACK 

{GET NEXT CHARACTER 

{WAIT UNTIL PRINTER IS READY 

{LOAD CHAR TO 3C TYPED INTO DATA REG. 

{IS CHARACTER A CARRIAGE RETURN? 

{BRANCH IF NO 

{YES— CLEAR CHARACTER COUNT 

{EXIT 

;IS CHARACTER A LINE FEED? 

{BRANCH IF YES 

{COUNT THE CHARACTER 

{CHARACTER COUNT STORAGE 



********************************* 
;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-7B 09:33 PAGE 107 
CFKTHB.P11 27-JUN-78 09:27 APT COMMUNICATIONS ROUTINE 



) 



5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
50Q3 
50$4 
5065 
5066 
5067 
50§8 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 



0401 10 
0401 16 
0401 16 
040120 
040122 
040126 
040130 
040136 
040140 
040146 
040150 
040154 
040162 
040166 
040170 
040174 
040176 
040200 
040204 
040206 
040212 
040220 
040222 
046230 
040236 
040242 
040246 
040250 
040250 
040254 
040256 
040262 
040264 
040270 
040272 
040300 
040306 
040312 
040316 
040322 
040326 
040330 
040332 
040334 
040335 
040336 



112737 000001 040336 



$ATY4! 
SATYC! 



010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062756 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001-75 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 
040340 
000200 
000001 
000100 
000040 



040334 

000001 

000100 

000004 
000002 
001226 



001244 
000004 

000004 
000002 
177776 
037610 



040336 

001246 

001226 

000004 
000002 
001226 
040336 
040335 
040334 



001246 
001247 



2$: 



040246 
000004 



4$: 
5$: 
10$: 



001230 
000004 



MOVB 

MOV 

MOV 

TSTB 

BEQ 

CMPB 

BNE 

BITB 

BEQ 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SUB 

ASR 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 



TSTB 
BEQ 
TST 
BEQ 
TST 
BNE 
MOV 
ADD 
INC 
CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
APTSIZE*200 
APTENV=001 
AP.iPOOL=100 
APTCSUP«040 
.SBTTL BINARY 



11$: 



12$: 



$MFLG: 

$lflg: 
$FFLG: 



#1 ,$FFLG 

RO,-(SP) 

R1,-(SP) 

SMFLG 

5$ 

#APTENV,$ENV 

3$ 

#APTSPOOL,$ENVM 

3$ 

C»4(SP),R0 

#2,4(SP) 

SMSGTYPE 

1$ 

RO,$MSGAD 

(R0) + 

2$ 

$MSGAD,RO 

RO 

RO.SMSGLGT 

#4, SMSGTYPE 

5$ 

S»4(SP),4$ 

#2,4(SP) 

177776,-(SP) 

PC.STYPE 



$FFLG 

12$ 

SENV 

12$ 

SMSGTYPE 

11$ 

f>4(SP),$FATAL 

#2,4(SP) 

SMSGTYPE 

$FFLG 

$LFLG 

$MFLG 

(SP)+,R1 

(SP)+,RO 

PC 






;;T0 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 

; ;PUSH R1 ON STACK 

;;SHOULD TYPE A MESSAGE? 

; ;IF NOT: BR 

; {OPERATING UNDER APT? 

;;IF NOT: BR 

; SHOULD SPOOL MESSAGES? 

;IF NOT: BR 

;GET MESSAGE ADDR. 

; {BUMP RETURN ADDR. 

;SEE IF DONE W/ LAST XMISSION? 

;IF NOT: WAIT 

;PUT ADDR IN MAILBOX 

{FIND END OF MESSAGE 

;SUB §TART OF MESSAGE 
;GET MESSAGE LNGTH IN WORDS 
;PUT LENGTH IN MAILBOX 
;TELL APT TO TAKE MSG. 

;PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 
{PUSH 177776 ON STACK 
;CALL TYPE MACRO 



; SHOULD REPORT FATAL ERROR? 

;IF NOT: BR 

{RUNNING UNDER APT? 

;IF NOT: BR 

; FINISHED LAST MESSAGE? 

;IF NOT: WAIT 

;GET ERROR it 

; {BUMP RETURN ADDR. 
;TELL APT TO TAKE ERROR 
;CLEAR FATAL FLAG 
{CLEAR LOG FLAG 
;CLEAR MESSAGE FLAG 
;POP STACK INTO R1 
;POP STACK INTO RO 
{RETURN 
{MESSG. FLAG 
{LOG FLAG 
; FATAL 'LAG 



TO ASCII AND TYPE ROUTINE 



..*********** **************************************** ************ 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
;*BINARY-ASCII NUMBER AND TYPE IT. 
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SEQ 0107 



5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 



040340 
040342 
040346 
040350 
040356 
040360 
040362 
040366 
040372 
040374 
040376 
040400 
040406 
040410 
040412 



040414 
040420 
040426 
040432 
040436 
040440 
040446 
040454 
040462 
040464 
040466 
040470 



010146 

016601 000006 

000261 

112737 000060 040412 1$ 

006101 

001406 

105537 040412 

104401 040412 

000241 

000-55 

012601 

016666 000002 00 

012616 

000002 

000 000 



017646 
116637 
112637 
062716 
000406 
1 12737 
112737 
112737 
010346 
01 0446 
010546 
113704 



000000 
000001 
040641 
000002 

000001 
000006 
000005 



040641 



040637 
040641 
04063F 



$TYPBN: 



2$: 



$BIN: 



MOV 


NUMBER,-(SP) 


TYPBN 




MOV 


R1 ,-(SP) 


MOV 


6(SP) f R1 


SEC 




MOVB 


#'0,$BIN 


ROL 


R1 


BEQ 


2$ 


ADCB 


$BIN 


TYPE 


,$BIN 


CLC 




BR 


1$ 


MOV 


(SP)+,R1 


MOV 


2(SP),4(SP) 


MOV 


(SP)+,(SP) 


RTI 





; ;NUMBER TO BE TYPED 
;;TYPE IT 

;;SAVE R1 ON THE STACK 

; ;GET THE INPUT NUMBER 

;;SET "C" SO CAN KEEP TRACK OF THE NUMBER OF BITS 

;;SET CHARACTER TO AN ASCII "0". 

{ ;GET THIS BIT 

{{DONE? 

;;N0— SET THE CHARACTER EQUAL TO THIS BIT 

; ;G0 TYPE THIS BIT 

;;CLEAR "C" SO CAN KEEP TRACK OF BITS 

; ;G0 DO THE NEXT BIT 

; ;POP THE STACK INTO R1 

; {ADJUST THE STACK 



.BYTE 0,0 



; RETURN TO USER 
{STORAGE FOR ASCII CHAR. 



AND TERMINATOR 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

I;*************************************************************** 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
{•OCTAL (ASCII) NUMBER AND TYPE IT. 

5*$TYP©$ ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

J*CALL*. 

;♦ MOV NUM,-(SP) ; ;NUMBER TO BE TYPED 

;* TYPOS ;;CALL FOR TYPEOUT 

;* .BYTE N ;;N*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

;* .BYTE M J {M=1 OR 

.* ;;1=TYPE LEADING ZEROS 

.* ;;0=SUPPRESS LEADING ZEROS 

;*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

;*$TYPOS OR STYPOC 

;*CALLJ 

•* MOV NUM.-(SP) ;;NUMBER TO BE TYPED 

;* TYPON ;;CALL FOR TYPEOUT 

|*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

;*CALL: 

•* MOV NUM.-(SP) {{NUMBER TO BE TYPED 
;* TYPOC JJCALL FOR TYPEOUT 

$TYPOS: MOV P(SP),-(SP) ; {PICKUP THE MODE 

MOVB 1(SP),$0FILL { { LOAD ZERO FILL SWITCH 

MOVB (SP)+,$OMODE+1 ; {NUMBER OF DIGITS TO TYPE 

ADD #2,(SP) ; {ADJUST RETURN ADDRESS 

BR STYPON 

$TYPOC: MOVB #1,$0FILL {{SET THE ZERO FILL SWITCH 

MOVB #6,$0M0DE+1 {{SET FOR SIX(6) DIGITS 

STYPON: MOVB #5,$0CNT {{SET THE ITERATION COUNT 

MOV R3,-(SP) {{SAVE R3 

MOV R4,-(SP) {{SAVE R4 

MOV R5 f -(SP) {{SAVE R5 

MOVB $0M0DE+1,R4 {{GET THE NUMBER OF DIGITS TO TYPE 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 109 
CFKTH8.P11 27-JUN-78 09:27 BINARY TO OCTAL (ASCII) AND TYPE 



SEO 0103 



5159 


040474 


005404 




5160 


040476 


062704 


000006 


5161 


040502 


110437 


040640 


5162 


040506 


113704 


040637 


5163 


040512 


016505 


000012 


5164 


040516 


005003 




5165 


040520 


006105 




5166 


040522 


000404 




5167 


040524 


006105 




5168 


040526 


006105 




5169 


040530 


006105 




5170 


040532 


010503 




5171 


040534 


006103 




5172 


040536 


105337 


040640 


5173 


040542 


100016 




5174 


040544 


042703 


177770 


5175 


040550 


001002 




5176 


040552 


005704 




5177 


040554 


001403 




5178 


040556 


005204 




5179 


040560 


052703 


000060 


5180 


040554 


052703 


000040 


5181 


040570 


110337 


040634 


5182 


040574 


104401 


040634 


5183 


040600 


105337 


040636 


5184 


040604 


003347 




5185 


040606 


002402 




5186 


040610 


005204 




5187 


040612 


000744 




5188 


040614 


012605 




5189 


040616 


012604 




5190 


040620 


012603 




5191 


040622 


016666 


000002 


5192 


040630 


012616 




5193 


040632 


000002 




5194 


040634 


000 




5195 


040635 


000 




5196 


040636 


000 




5197 


040637 


000 




5198 


040640 


000000 




5199 








5200 








5201 








5202 








5203 








5204 








5205 








5206 








5207 








5208 








5209 








5210 








5211 


040642 






5212 


040642 


010046 




5213 


040644 


010146 




5214 


040646 


010246 







NEG 


R4 




ADD 


#6 t R4 




MOVB 


R4, SOMODE 




MOVB 


3.0FILL.R4 




MOV 


12(SP) f R3 




CLR 


R3 


1$: 


ROL 


R5 




BR 


3$ 


2$: 


ROL 


R5 




ROL 


R5 




ROL 


R5 




MOV 


R5.R3 


3$: 


ROL 


R3 




DECB 


SOMODE 




BPL 


7$ 




BIC 


#177770, R3 




BNE 


4$ 




TST 


R4 




BEO 


Ss 


4$: 


INC 


R4 




BIS 


#'0,R3 


5$: 


BIS 


#' ,R3 




MOVB 


R3,8$ 




TYPE 


,8$ 


75! 


DECB 


SOCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


25 


6$: 


MOV 


(SP)+,R5 




MOV 


(SP)+,R4 




MOV 


(SP)+,R3 




MOV 


2(SP),4(SP) 




MOV 


(SP)+,(SP) 




RTI 




8$: 


.BYTE 







.BYTE 





SOCNT: 


.BYTE 





sofill: 


.BYTE 





SOMODE: 


.WORD 





.SBTTL 


CONVERT 


BINARY TO D 



{SUBTRACT IT FOR MAX. ALLO 
;SAVE IT FOR USE 
;GET THE ZERO FILL SWITCH 
; PICKUP THE INPUT NUMBER 
{CLEAR .HE OUTPUT WORD 
;ROTATE MSB INTO H C" 
;GO DO MSB 
{FORM THIS DIGIT 



{{GET LSB OF THIS DIGIT 

5 ;TYPE THIS DIGIT? 

; ;BR IF NO 

; {GET RID OF JUNK 

; {TEST FOR 

; {SUPPRESS THIS 0? 

;;BR IF YES 

;; DON'T SUPPRESS ANYMORE O'S 

;;MAKE THIS DIGIT ASCII 

;;MAKE ASCII IF NOT ALREADY 

; {SAVE FOR TYPING 

; ;G0 TYPE THIS DIGIT 

; ; COUNT BY 1 

; ;BR IF MORE TO DO 

; ;BR IF DONE 

;; INSURE LAST DIGIT ISN'T A BLANK 

; ;GO DO THE LAST DIGIT 

; {RESTORE R5 

; {RESTORE R4 

; {RESTORE R3 

;;SET THE STACK FOR RETURNING 

{ {RETURN 

{ {STORAGE FOR ASCII DIGIT 
{ {TERMINATOR FOR TYPE ROUTINE 
{ {OCTAL DIGIT COUNTER 
; {ZERO FILL SWITCH 
; {NUMBER OF DICIT3 TO TYPE 
,L AND TYPE ROUTINE 

{♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
{♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
{♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
{•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
{♦REPLACED WITH SPACES. 
{♦CALL: 

•* MOV NUM f -(SP) {{PUT THE BINARY NUMBER ON THE STACK 
;• TYPDS {{GO TO THE ROUTINE 



STYPDS: 



MOV R0,-(SP) 
MOV R1,-(SP) 
MOV R2,~(SP) 



{{PUSH RO ON STACK 
{{PUSH R1 ON STACK 
{ } PUSH R2 ON STACK 
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SEO 0109 



5215 


040650 


010346 




5216 


040652 


010546 




5217 


040654 


012746 


020200 


5218 


040660 


016605 


000020 


5219 


040664 


100004 




5220 


040666 


005405 




5221 


040670 


112766 


000055 


5222 


040676 


005000 




5223 


040700 


012703 


041056 


5224 


040704 


112723 


000040 


5225 


040710 


005002 




5226 


040712 


016001 


041046 


5227 


040716 


160105 




5228 


040720 


002402 




5229 


040722 


005202 




5230 


040724 


000774 




5231 


040726 


060105 




5232 


040730 


005702 




5233 


040732 


001002 




5234 


040734 


105716 




5235 


040736 


100407 




5236 


040740 


106316 




5237 


040742 


103003 




5238 


040744 


116663 


000001 


5239 


040752 


052702 


000060 


5240 


040756 


052702 


000040 


5241 


040762 


110223 




5242 


040764 


005720 




5243 


040766 


020027 


000010 


5244 


040772 


002746 




5245 


040774 


003002 




5246 


040776 


010502 




5247 


041000 


000764 




5248 


041002 


105.26 




5249 


041004 


100003 




5250 


041006 


116663 


177777 


5251 


041014 


105013 




5252 


041016 


012605 




5253 


041020 


012603 




5254 


041022 


012602 




5255 


041024 


012601 




5256 


041026 


012600 




5257 


041030 


104401 


041 056 


5258 


041034 


016666 


000002 


5259 


041042 


012616 




5260 


041044 


000002 




5261 


041046 


023420 




5262 


041050 


001750 




5263 


041052 


000144 




5264 


041054 


000012 




5265 


041056 


000004 




5266 








5267 








5268 








5269 








5270 









1$: 



3$: 



4$: 



177777 



6$: 
7$: 



177776 



000004 



SDTBL: 



SDBLK: 
.SBTTL 



MOV 

MOV 

MOV 

MOV 

BPL 

NEG 

MOVB 

CLR 

MOV 

MOVB 

CLR 

MOV 

SUB 

BLT 

INC 

BR 

ADD 

TST 

BNE 

TSTB 

BMI 

ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000, 

1000. 

100. 

10. 

.BLKW 



R3 f -(SP) 

R5,-(SP) 

#20200,-(SP) 

20(SP),R5 

1$ 

R5 

#»-,1(SP) 

RO 

*$DBLK,R3 

#' ,(R3)+ 

R2 

$DTBL(R0),R1 

R1 ,R5 

4$ 

R2 

3$ 

R1 ,R5 

R2 

5$ 

(SP) 

7$ 

(SP) 

6$ 

1(SP),-1(R3) 

#'0,R2 

#' ,R2 

R2 f (R3)+ 

(R0) + 

R0,#10 

2$ 

8$ 

R5.R2 

6$ 

(SP) + 

9$ 

-1(SP),-2(R3) 

(R3) 

(SP)+,R5 

(SP)+ f R3 

(SP)+ t R2 

(SP)+,R1 

(SP)+,RO 

, SDBLK 

2(SP),4(SP) 

(SP)+,(SP) 



{PUSH R3 ON STACK 

{PUSH R5 ON STACK 

{SET BLANK SWITCH AND SIGN 

{GET THE INPUT NUMBER 

;BR IF INPUT IS POS. 

{MAKE THE BINARY NUMBER POS. 

{MAKE THE ASCII NUMBER NEG. 

{ZERO THE CONSTANTS INDEX 

{SETUP THE OUTPUT POINTER 

{SET THE FIRST CHARACTER TO A BLANK 

{CLEAR THE BCD NUMBER 

{GET THE CONSTANT 

{FORM THIS BCD DIGIT 

;BR IF DONE 

{INCREASE THE BCD DIGIT BY 1 

{ADD BACK THE CONSTANT 

{CHECK IF BCD DIGIT«0 

{FALL THROUGH IF 

{STILL DOING LEADING O'S? 

;BR IF YES 

;MSD? 

;BR IF NO 

{YES— SET THE SIGN 

{MAKE THE BCD DIGIT ASCII 

{MAKE IT A SPACE IF NOT ALREADY A DIGIT 

{PUT THIS CHARACTER IN THE OUTPUT BUFFER 

{JUST INCREMENTING 

{CHECK THE TABLE INDEX 

{GO DO THE NEXT DIGIT 

;G0 TO EXIT 

{GET THE LSD 

{GO CHANGE TO ASCII 

{WAS THE LSD THE FIRST NON-ZERO? 

;BR IF NO 

{YES— SET THE SIGN FOR TYPING 

{SET THE TERMINATOR 

{POP STACK INTO R5 

{POP STACK INTO R3 

{POP STACK INTO R2 

{POP STACK INTO R1 

{POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
i {ADJUST THE STACK 

i{ RETURN TO USER 



SAVE AND RESTORE R0-R5 ROUTINES 



..**♦***#******#****•***********»***********•**********•******** 

••SAVE R0-R5 

;*CALL: 



) 
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* SAVREG 

* UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
* 
*TOP ( + 16) 

* +2 ( + 18) 

* +4 R5 

* +6 R4 

* +8 R3 

* + 10 R2 

♦+12 R1 

»+14 RO 



5271 








5272 








5273 








5274 








5275 








5276 








5277 








5278 








5279 








5280 








5281 








5282 








5283 


041066 






5284 


041066 


010-46 




5285 


041070 


010146 




5286 


041072 


010246 




5287 


041074 


010346 




5288 


041076 


010446 




5289 


041100 


010546 




5290 


041102 


016646 


000022 


5291 


041106 


016646 


000022 


5292 


041112 


016646 


000022 


5293 


041116 


016646 


000022 


5294 


041122 


000002 




5295 








5296 








5297 








5298 








5299 


041124 






5300 


041124 


012666 


000022 


5301 


041130 


012666 


000022 


5302 


041134 


012666 


000022 


5303 


041140 


012665 


000022 


5304 


041144 


012605 




5305 


041146 


012604 




5306 


041150 


012603 




5307 


041152 


012602 




5308 


041154 


012601 




5309 


041156 


012600 




5310 


041160 


000002 




5311 








5312 








5313 








5314 








5315 








5316 








5317 








5318 








5319 








5320 








5321 








5322 


041162 


104413 




5323 


041164 


016601 


000002 


5324 


041170 


012705 


041301 


5325 


041174 


012704 


000014 


5326 


041200 


012703 


177770 



SSAVREG: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3 f -(SP) 

R4,-(SP) 

R5,-(SP) 

22(SP),-(SP) 

22(SP),-(SP) 

22(SP),-(SP) 

22(SP),-(SP) 



♦RESTORE R0-R5 

♦call: 

* RESREG 

SRESREG: 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 

MOV (SP)+, 
RTI 

.SBTTL DOUBLE LENGTH 



22(SP) 

22(SP) 

22(SP) 

22(SP) 

R5 

R4 

R3 

R2 

R1 

RO 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

;PUSH R2 ON STACK 

;PUSHJ*3 ON STACK 

;PUSHi^4 ON STACK 

;PUSH R5 ON STACK 

{SAVE PS OF MAIN FLOW 

;SAVE PC OF MAIN FLOW 

{SAVE PS OF CALL 

{SAVE PC OF CALL 



{RESTORE PC OF CALL 
{RESTORE PS OF CALL 
{RESTORE PC OF MAIN FLOW 
{RESTORE PS OF MAIN FLOW 
{POP STACK INTO R5 
{POP STACK INTO R4 
{POP STACK INTO R3 
{POP STACK INTO R2 
{POP STACK INTO R1 
{POP STACK INTO RO 



BINARY TO OCTAL ASCII CONVERT ROUTINE 



*ThlS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
♦UNSIGNED OCTAL ASCIZ NUMBER. 

♦ CALL 

• MOV #PNTR,-(SP) {{POINTER TO LOW WORD OF BINARY NUMBER 

♦ JSR PC,»#$DB20 {{CALL THE ROUTINE 

* RETURN {{THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 



SAVREG 

MOV 

MOV 

MOV 

MOV 



2(SP),R1 
#$0CTVL+13.,R5 
#12.,R4 
#"C7,R3 



{SAVE ALL REGISTERS 

{PICKUP THE POINTER TO LOW WORD 

{POINTER TO DATA TABLE 

{DO ELEVEN CHARACTERS 

{MASK 



CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAGE 112 
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SEQ 0111 



5327 


041204 


012100 




MOV 


(RD + .RO 


5328 


041206 


012101 




MOV 


(R1)+,R1 


5329 


041210 


005002 




CLR 


R2 


5330 


041212 


110245 


1$: 


MOVB 


K2,-(R5) 


5331 


041214 


010002 




MOV 


R0.R2 


5332 


041216 


005304 




DEC 


R4 


5333 


041220 


003007 




BGT 


3$ 


5334 


041222 


001405 




BEQ 


2$ 


5335 


041224 


005205 




INC 


R5 


5336 


041226 


010566 000002 




MOV 


R5,2(SP) 


5337 


041232 


104414 




RESREG 




5338 


041234 


000207 




RTS 


PC 


5339 


041236 


006203 


2$: 


ASR 


R3 


5340 


041240 


006001 


3$: 


ROR 


R1 


5341 


041242 


006000 




ROR 


RO 


5342 


041244 


006001 




ROR 


R1 


5343 


041246 


006000 




ROR 


RO 


5344 


041250 


006001 




ROR 


R1 


5345 


041252 


006000 




ROR 


RO 


5346 


041254 


040302 




BIC 


R3.R2 


5347 


041256 


062702 000060 




ADD 


# , 0,R2 


5348 


041262 


000753 




BR 


1$ 


5349 


041264 


000016 


SOCTVL: 


.BLKB 


14. 



LOWER WORD 
HIGH WORD 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 
GET THIS DIGIT 
COUNT THIS CHARACTER 
BR IF NOT THE LAST DIGIT 
BR IF IT IS THE LAST DIGIT 
ALL DIGITS DONE-ADdUST POINTER FOR FIRST 
ASCIZ CHAR. & PUT IT ON THE STACK 
RESTORE ALL REGISTERS 
RETURN TO USER 

POSITION THE MASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
THE NEXT OCTAL DIGIT 



{MASK OUT ALL JUNK 

{MAKE THIS CHAR. ASCII 

{GO PUT IT IN THE DATA TABLE 

{RESERVE DATA TABLE 
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.SBTTL TRAP DECODER 



SEO 0112 



5350 






5351 






5352 






5353 






5354 






5355 






5356 






5357 






5358 


041302 


010046 


5359 


041304 


016600 000002 


5360 


041310 


005740 


5361 


041312 


11 1000 


5362 


041314 


006300 


5363 


041316 


016000 041336 


5364 


041322 


000200 


5365 






5366 






5367 






5368 






536S 


041324 


011646 


5370 


041326 


016666 000004 


5371 


041334 


000002 


5372 






5373 






5374 






5375 






5376 






5377 






5378 






5379 






5380 


041336 


041324 


5381 


041340 


037610 


5382 


041342 


040440 


5383 


041344 


040h14 


5384 


04134C 


040454 


5385 


041350 


040642 


5386 


041352 


040340 


5387 






5388 


041354 


036536 


5389 






5390 


041356 


036466 


5391 


041360 


037010 


5392 


041362 


037130 


5393 


041364 


041066 


5394 


041366 


041124 


5395 






5396 






5397 






5398 






5399 


041370 


012737 041546 


5400 


041376 


012737 000340 


5401 


041404 


010046 


5402 


041406 


010146 


5403 


041410 


010246 


5404 


041412 


010346 


5405 


041414 


010446 



J.*********************************************** **************** 
{♦THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 

STRAPS 



MOV 


RO,-(SP) 




{SAVE RO 


MOV 


2(SP),R0 




{GET TRAP ADDRESS 


TST 


«-(R0) 




{BACKUP BY 2 


MOVB 


(RO),RO 




{GET RIGHT BYTE OF TRAP 


ASL 


RO 




{POSITION FOR INDEXING 


MOV 


$TRPAD(RO) 


,R0 


{INDEX TO TABLE 


RTS 


RO 




{GO TO ROUTINE 



{{THIS IS USE %0 HANDLE THE "GETPRI" MACRO 



STRAP2: MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP),2(SP) 



{{MOVE THE PC DOWN 
{{MOVE THE PSW DOWN 
{{RESTORE THE PSW 



.SBTTL TRAP TABLE 

{♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
{*BY THE "TRAP" INSTRUCTION. 



STRPAD: 



ROUTINE 




.WORD 


STRAP2 


STYPE 


;;CALL=TYPE 


STYPOC 


{{CALL*TYPOC 


STYPOS 


{{CALL*TYPOS 


STYPON 


}{CALL=TYPON 


STYPDS 


{{CALL"TYPDS 


STYPBN 


{{CALL'TYPBN 


SGTSWR 


{{CALL»GTSWR 


SCKSWR 


{{CALL=CKSWR 


SRDCHR 


{{CALL=RDCHR 


SRDLIN 


{{CALL=RDLIN 


SSAVREG 


,{CALL=SAVREG 


SRESREG 


{{CALL=RESREG 



.SBTTL POWER DOWN AND UP ROUTINES 

J.****************************************' 



TRAP+K 104401) TTY TYPEOUT ROUTINE 

TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

TRAP+6( 104406) TYPE BINARY (ASCII) NUMBER 

TRAP+7( 104407) GET SOFT-SWR SETTING 

TRAP+1 0(104410) TEST FOR CHANGE IN SOFT-SWR 

TRAP+1 1(104411) TTY TYPEIN CHARACTER ROUTINE 

TRAP+12(104412) TTY TYPEIN STRING ROUTINE 

TRAP+13( 104413) SAVE R0-R5 ROUTINE 

TRAP+14( 104414) RESTORE R0-R5 ROUTINE 



********************** 



{POWER DOWN ROUTINE 



000024 SPW4DN: MOV 
000026 MOV 

MOV 
MOV 
MOV 
MOV 
MOV 



#$lLLUP,e#PWRVEC {{SET FOR FAST UP 



#340,@#PWRVEC+2 

RO,-(SP) 

R1,-(SP) 

R2 t -(SP) 

R3,-(SP) 

R4 f -(SP) 



PRI0:7 

{PUSH RO ON STACK 

{PUSH R1 ON STACK 

{PUSH R2 ON STACK 

{PUSH R3 ON STACK 

{PUSH R4 ON STACK 
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SEO 0113 



5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5 429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
54^5 
5446 
5447 



041416 
041420 
041424 
041430 
041436 
041440 



041442 
041450 
041454 
041460 
041464 
041466 
041472 
041474 
041476 
041500 
04150? 
041504 
041506 
041514 
041522 
041524 
041526 
041530 
041532 
041540 
041544 
C41546 
041550 
041552 
041554 
041562 
041570 
041576 
041604 
041612 



010545 

017746 137514 

010637 041552 

012737 041442 

000000 

000776 



012737 
013706 
005037 
005237 
001^75 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
041554 
012716 
020000 
042766 
005037 
000002 
000000 
000776 
000000 
006412 
051105 
052514 
051040 
052122 
006412 
041616 



000024 



MOV 

MOV 

MOV 

MOV 

HALT 

BR 



R5,-(SP) {{PUSH R5 ON STACK 
eSWR.-(SP) {{PUSH @SWR ON STACK 
SP.5SAVR8 {{SAVE SP 
#$PWRUP,«>#PWRVEC {{SET UP VECTOR 



.-2 



041546 
041552 
041552 
041552 

137446 



041370 
000340 



000020 
035032 



050040 
043040 
042522 
051505 
047111 
000 



; ;****! 
{POWER 
SPWRUP 



1$: 



************************** 

UP ROUTINE 



000024 
000026 



053517 
044501 
026440 
040524 
020107 



SPWRMG! 
SPWRAD! 



SILLUP! 



SSAVR6! 
PWRMSG ! 



MOV 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

MOV 

.WORD 

BIC 

CLR 

RTI 

HALT 

BR 



.ASCIZ 



*$ILLUP,9#PWRVEC 

SSAVR6.SP 

SSAVR6 

SSAVR6 

1$ 

(SP)+,eswR 

(SPJ+.R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

(SP)+,RO 

*$PWRDN,9#PWRVEC 

#340,9#PWRVEC+2 

PWRMSG 

(PC)+,(SP) 

START 

#20,2(SP) 

STBIT 



{{HANG UP 
********************************* 

{SET FOR FAST DOWN 

GET SP 

WAIT LOOP FOR THE TTY 

WAIT FOR THE INC 

OF WORD 

POP STACK INTO @SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

{SET UP THE POWER DOWN VECTOR 

PR10:7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTAP' AT START 

RESTART ADDRESS 

CLEAR "T" BIT 

CLEAR THE "T« BIT FLAG 



;THE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COMPLETE 
jPUT THE SP HERE 
<12><15>? POWER FAILURE - RESTARTING ?<12><15> 
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.ASCIZ /UNEXPECTED CPU TRAP TO LOC. 004/ 



.ASCIZ /UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 



SEQ 0114 



5448 










.SBTTL 


5449 


041616 


047125 


054105 


042520 


EM1: 


5450 


041624 


052103 


042105 


041440 




5451 


041632 


052520 


052040 


040522 




5452 


041640 


020120 


047524 


046040 




5453 


041646 


041517 


020056 


030060 




5454 


041654 


000064 








5455 


041656 


047125 


054105 


042520 


EM2: 


5456 


041664 


052103 


042105 


046440 




5457 


041672 


046505 


020056 


043515 




5458 


041700 


052115 


020056 


051124 




5459 


041706 


050101 


052040 


0201 17 




5460 


041714 


047514 


027103 


031040 




5461 


041722 


030065 


000 






5462 


041725 


120 


044522 


051117 


EM3: 


5463 


041732 


052111 


020131 


044502 




5464 


041740 


051524 


051440 


052105 




5465 


041746 


053440 


047522 


043516 




5466 


041754 


044440 


020116 


051520 




5467 


041762 


000127 








5468 


041764 


047515 


042504 


041040 


EM4: 


5469 


041772 


052111 


020123 


042523 




5470 


042000 


020124 


051127 


047117 




5471 


042006 


020107 


047111 


050040 




5472 


042014 


053523 


000 






5473 


042017 


104 


040525 


020114 


EM5: 


5474 


042024 


042101 


051104 


051505 




5475 


042032 


044523 


043516 


041040 




5476 


042040 


052105 


042527 


047105 




5477 


042046 


044040 


023111 


047514 




5478 


042054 


041040 


052131 


051505 




5479 


042062 


047440 


020106 


051520 




5480 


042070 


000127 








5481 


042072 


042513 


047122 


046105 


EM6: 


5482 


042100 


051040 


020066 


044103 




5483 


042106 


047101 


042507 


020104 




5484 


0421 14 


054502 


053440 


044522 




5485 


042122 


044524 


043516 


052440 




5486 


042130 


042523 


020122 


033122 




5487 


042136 


000 








5488 


042137 


101 


046440 


046505 


EM7! 


5489 


042144 


051117 


020131 


043515 




5490 


042152 


052115 


020056 


042522 




5491 


042160 


027107 


052040 


046511 




5492 


042166 


042105 


047440 


052125 




5493 


042174 


000 








5494 


042175 


123 


046525 


040515 


EM10: 


5495 


042202 


054522 


047440 


020106 




5496 


042210 


042515 


027115 


046440 




5497 


042216 


046507 


027124 


051040 




549B 


042224 


043505 


020056 


044524 




5499 


042232 


042515 


052517 


051524 




5500 


042240 


?00 








5501 


042241 


115 


046505 


020056 


EM11: 


5502 


042246 


043515 


052115 


020056 




5503 


042254 


042522 


027107 


053440 





.ASCIZ /PRIORITY BITS SET WRONG IN PSW/ 



.ASCIZ /MODE BITS SET WRONG IN PSW/ 



.ASCIZ /DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW/ 



.ASCIZ /KERNEL R8 CHANGED BY WRITING USER R6/ 



.ASCIZ /A MEMORY MGMT. REG. TIMED OUT/ 



.ASCIZ /SUMMARY OF MEM. MGMT. REG. TIMEOUTS/ 



.ASCIZ /MEM. MGMT. REG. WOULD NOT CLEAR/ 
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SEQ 0115 



5504 


042262 


052517 


042114 


047040 


5505 


042270 


0521 17 


041440 


042514 


5506 


042276 


051101 


000 - 




5507 


042301 


115 


046505 


020056 


5508 


042306 


043515 


052115 


020056 


5509 


042314 


042522 


027107 


041040 


5510 


042322 


052111 


020123 


047516 


5511 


042330 


020124 


042523 


020124 


5512 


042336 


047503 


051122 


041505 


5513 


042344 


046124 


000131 




5514 


042350 


051123 


020060 


043105 


5515 


042356 


042506 


052103 


042 10E 


5516 


042364 


041040 


020131 


051127 


5517 


042372 


0521 11 


020105 


047524 


5518 


042400 


050040 


053523 


000 


5519 


042405 


123 


030522 


042040 


5520 


042412 


0421 1 1 


047040 


052117 


5521 


042420 


051040 


040505 


020104 


5522 


042426 


046101 


020114 


042532 


5523 


042434 


047522 


000123 




5524 


042440 


052504 


046101 


040440 


5525 


042446 


042104 


042522 


051523 


5526 


042454 


0471 1 1 


020107 


042502 


5527 


042462 


053524 


042505 


020116 


5528 


042470 


054502 


042524 


020123 


5529 


042476 


0431 17 


050040 


051 101 


5530 


042504 


047440 


020122 


042120 


5531 


042512 


000122 






5532 


042514 


052504 


046101 


040440 


5533 


042522 


042104 


042522 


051523 


5534 


042530 


047111 


020107 


042502 


5535 


042536 


053524 


042505 


0201 16 


5536 


042544 


040520 


026522 


042120 


5537 


042552 


023^22 


000123 




5538 


042556 


044120 


051531 


020056 


5539 


042564 


042101 


051104 


020056 


5540 


042572 


047506 


046522 


042105 


5541 


042600 


053440 


047522 


043516 


5542 


042606 


044440 


020116 


040515 


5543 


042614 


0471 11 


027124 


046440 


5544 


042622 


0421 17 


000105 




5545 


042626 


044120 


051531 


020056 


5546 


042634 


042101 


051 104 


020056 


5547 


042642 


047506 


046522 


042105 


5548 


042650 


053440 


047522 


043516 


5549 


042656 


044440 


020116 


042522 


5550 


042664 


047514 


040503 


042524 


5551 


042672 


046440 


0421 17 


000105 


5552 


042700 


026527 


044502 


020124 


5553 


042706 


044504 


020104 


047516 


5554 


042714 


020124 


042507 


020124 


5555 


042722 


042523 


020124 


047111 


5556 


042730 


050040 


051104 


000 


5557 


042735 


127 


041055 


052111 


5558 


042742 


051440 


052105 


044440 


5559 


042750 


020116 


047515 


042522 



.ASCIZ /MEM. MGMT. REG. BITS NOT SET CORRECTLY/ 



.ASCIZ /SRO EFFECTED BY WRITE TO PSW/ 



.ASCIZ /SR1 DID NOT READ ALL ZEROS/ 



.ASCIZ /DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR/ 



.ASCIZ /DUAL ADDRESSING BETWEEN PAR-PDR'S/ 



.ASCIZ /PHYS. ADDR. FORMED WRONG IN MAINT. MODE/ 



.ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ 



.ASCIZ /W-BIT DID NOT GET SET IN PDR/ 



.ASCIZ /W-BIT SET IN MORE THAN ONE PDR/ 
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SEQ 0116 



5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 



042756 
042764 
042772 
042774 
043002 
043010 
043016 
043024 
043032 
043040 
043046 
043054 
043062 
043070 
043076 
043100 
043106 
0431 14 
043122 
043130 
043136 
043144 
043145 
043152 
043160 
043166 
043174 
043202 
043210 
043215 
043222 
043230 
043236 
043244 
043252 
043260 
043264 
043272 
043300 
043306 
043314 
043322 
043330 
043336 
043344 
043352 
043360 
043366 
043374 
043402 
043403 
043410 
043416 
043424 
043432 
043440 



052040 
0471 17 
000122 
026527 
047516 
040505 
054502 
044524 
020117 
051 127 
020107 
042523 
044502 

045 -ao 

000067 
026527 
047507 
020124 
043516 
040440 
040440 
000 
1 15 
020131 
020056 
051523 
052122 
047040 
041503 
101 
020123 
020122 
047516 
051 1 17 
052123 
04751 1 
051 123 
020104 
042522 
040440 
020123 
020122 
041505 
044504 
020124 
050125 
042522 
051111 
040440 
000 
120 
043514 
041101 
041517 
042105 
020116 



040510 
020105 

044502 
020124 
042522 
053440 
043516 
042120 
052111 
051123 
020124 
020124 
050111 

044502 
020124 
052504 
047440 
042104 
047502 

046505 
043515 
041501 
040440 
042040 
052117 
051125 
041503 
051105 
044504 
020124 
020124 
052522 
000116 
020060 
047516 
047520 
041503 
051105 
047503 
046124 
020104 
047514 
041440 
052103 
052524 
042104 

043501 
044124 
051117 
052503 
053440 
052111 



020116 
042120 

020124 
046103 
020104 
044522 
052040 
000122 
0471 11 
020060 
026527 
0471 11 
051104 



020124 EM25! 

042523 

044522 

042104 

027122 

052122 



EM23: .ASCIZ /W-BIT NOT CLEARED BY WRITING TO PDR/ 



EM24: .ASCIZ /WRITING SRO SET W-BIT IN KIPDR7/ 



0511 17 
0521 15 
042503 
047502 
0421 1 1 
047440 
000 
051505 
047522 
020104 
041 101 
0471 11 
052103 

044504 
020124 
052122 
051505 
047522 
051122 
000131 
047516 
045503 
051 1 17 
053040 
046101 
027122 

020105 
02005*" 
020124 
051122 
042510 
051440 



EM26! 



.ASCIZ /W-BIT GOT SET DURING ODD ADDR. ABORT/ 



.ASCIZ /MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 



.ASCIZ /ACCESS ERROR DID NOT ABORT INSTRUCTION/ 



EM30: .ASCIZ /SRO DID NOT REPORT ACCESS ERROR CORRECTLY/ 



EM31: .ASCIZ /DID NOT LOCKUP CORRECT VIRTUAL ADDR./ 



.ASCIZ /PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE/ 
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SEQ 0117 



5616 
5G17 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 



043446 
043454 
043462 
043464 
043472 
043500 
043506 
043514 
043522 
043530 
043536 
043544 
043547 
043554 
043562 
043570 
043576 
043604 
043612 
043620 
043625 
043632 
043640 
043646 
043654 
043662 
043670 
043672 
043700 
043706 
043714 
043722 
043730 
043736 
043741 
043746 
043754 
043762 
043770 
043774 
044002 
044010 
044016 
044024 
044032 
044033 
044040 
044046 
044054 
044062 
044070 
044076 
044100 
044106 
0441 14 
044122 



047510 
052047 
000105 
040520 
052107 
047502 
0421 11 
047440 
053440 
0521 11 
046125 
042526 

123 
042111 
051040 
020124 
046040 
040440 
041440 
052103 

123 
020122 
044103 
020104 
051440 
020104 
000124 
051 123 
051440 
051 105 
020124 
052105 
040440 
052105 

123 
0521 17 
045503 
047503 
046124 
044504 
020124 
052040 
042513 
051440 

000 

113 
047522 
053122 
047440 
020104 
020056 
000122 
051<23 
051440 
040510 
041040 



046125 047104 
044040 053101 



042507 
0271 10 
052122 
047040 
041503 
042510 
051440 
020104 
000 
030122 
047040 
050105 
040520 
052107 
047502 
051117 
054514 
030122 
051123 
047101 
054502 
041505 
041101 

020060 
031122 
020105 
051042 
020042 
051040 
000 
031122 
052040 
047111 
051 122 
000131 
020104 
051124 
051110 
047122 
040520 

020124 
020122 
041511 
020116 
042101 
051105 

020060 
031122 
043516 
020131 



046040 
040440 
042040 
0521 17 
051125 
0201 16 
047510 
040510 

042040 
0521 17 
0511 17 
042507 
0271 10 
052122 
042522 
000 
047440 
020062 
042507 
040440 
0471 17 
051 1 17 

051117 
053440 
047516 
051505 
05450* 
051505 

047040 
040522 
020107 
041505 

047516 
050101 
020125 
046105 
042503 

051105 
042523 
042105 
042117 
051104 
047522 

051117 
041440 
042105 
042117 



.ASCIZ /PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 



.ASCIZ /SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY/ 



.ASCIZ /SRO OR SR2 CHANGED BY A SECOND ABORT/ 



.ASCIZ /SRO OR SR2 WERE NOT "RESET" BY A RESET/ 



.ASCIZ /SR2 NOT TRACKING CORRECTLY/ 



.ASCIZ /DID NOT TRAP THRU KERNEL SPACE/ 



.ASCIZ /KT ERROR SERVICED ON ODD ADDR. ERROR/ 



EM44: .ASCIZ /SRO OR SR2 CHANGED BY ODD ADDR. ERROR/ 



mmm 
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) 



5672 


044130 


020I04 


042101 


051104 


5B73 


044136 


020D56 


051105 


047522 


5674 


0441 44 


000122 






5675 


044146 


051105 


047522 


020122 


5G76 


044154 


052504 


044522 


043516 


5677 


044162 


021040 


047504 


041125 


5678 


044170 


042514 


042440 


051122 


5679 


,044176 


051 1 17 


020042 


045450 


5680 


044204 


020124 


020046 


0421 17 


5681 


044212 


020104 


042101 


051104 


5682 


044220 


024456 


000 




5683 


044223 


115 


050106 


020111 


5684 


044230 


0471 11 


052123 


052522 


5685 


044236 


052103 


047511 


0201 16 


5686 


044244 


052520 


044123 


042105 


5687 


044252 


053440 


047522 


043516 


5688 


044260 


042040 


052101 


000101 


5689 


044266 


0521 15 


044520 


044440 


5690 


044274 


051516 


051124 


041525 


5631 


044302 


044524 


047117 


046040 


5692 


044310 


040517 


042504 


020104 


5693 


044316 


051127 


047117 


020107 


5694 


044324 


040504 


040524 


000 


5695 


044331 


123 


040524 


045503 


5696 


044336 


047040 


052117 


050040 


5697 


044344 


051525 


042510 


020104 


5598 


044352 


054502 


046440 


050106 


5699 


044360 


026511 


052115 


044520 


5700 


044366 


000 






5701 


044367 


113 


051 105 


042516 


5702 


044374 


0201 14 


040520 


042507 


5703 


044402 


040440 


041503 


051505 


5704 


044410 


020123 


047111 


052123 


5705 


044416 


040^05 


020104 


0431 17 


5706 


044424 


052440 


042523 


035122 


5707 


044432 


046440 


050106 


026511 


5708 


044440 


052115 


044520 


000 


5709 


044445 


127 


047522 


043516 


5710 


044452 


050040 


051104 


051447 


5711 


044460 


051040 


043105 


051 105 


5712 


044466 


047105 


042503 


020104 


5713 


044474 


044127 


0461 11 


020105 


5714 


04^502 


0471 1 1 


051040 


046105 


5715 


044510 


041517 


052101 


020105 


5716 


044516 


047515 


042504 


000 


5717 


044523 


115 


050106 


020104 


5718 


04^530 


047111 


052123 


052522 


5719 


044536 


052103 


047511 


0201 16 


5720 


044544 


052520 


044123 


042105 


5721 


044552 


053440 


047522 


043516 


5722 


044560 


042040 


052101 


000101 


5723 


044566 


052123 


041501 


0201 13 


5724 


044574 


047516 


020124 


052520 


5725 


044602 


044123 


042105 


041040 


5726 


044610 


020131 


043115 


042120 


5727 


044616 


046455 


050124 


000104 



.ASCIZ /ERROR DURING "DOUBLE ERROR" (KT & ODD ADDR.)/ 



.ASCIZ /MFPI INSTRUCTION PUSHED WRONG DATA/ 



.ASCIZ /MTPI INSTRUCTION LOADED WRONG DATA/ 



.ASCIZ /STACK NOT PUSHED BY MFPI-MTPI/ 



.ASCIZ /KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 



.ASCIZ /WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ 



.ASCIZ /MFPD INSTRUCTION PUSHED WRONG DATA/ 



.ASCIZ /STACK NOT PUSHED BY MFPD-MTPD/ 
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SEO 0119 



5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 



044624 
044632 
044640 
044646 
044654 
044662 
044670 
044676 
044704 
044712 
044716 
044724 
044732 
044740 
044746 
044754 
044762 
044770 
044773 
045000 
045C06 
045014 
045022 
045030 
045036 
045044 
045052 
045060 
045066 
045074 
045102 
0451 10 
0451 14 
045122 
045130 
045136 
045144 
045152 
045160 
045165 
045172 
045200 
045206 
045214 
045222 
045225 
045232 
045240 
045246 
045254 
045262 
045266 
045274 
045302 
045310 
045316 



040520 
050040 
040510 
041040 
042522 
0461 11 
0201 14 
030040 
020124 
042524 
051123 
020104 
042522 
044-40 
046101 
020105 
051117 
054514 

120 
040510 
04104U 
051040 
020116 
046440 
040515 
046440 
051450 
037070 
020124 
046102 
020131 
042523 
040504 
041516 
052103 
051105 
044501 
047515 
044522 

123 
020105 
040503 
047111 
0521 16 
042504 

116 
051505 
020124 
020124 
047516 
052503 
051105 
046106 
051117 
041101 
041050 



020122 
051104 
043516 
020131 
042523 
042514 
047515 
020061 
041 101 
000104 
020060 
047516 
047520 
046114 
046440 
030460 
042522 

000 
053523 
043516 
020131 
044524 
051525 
042117 
047111 
042117 
030122 
020051 
044504 
042105 
020101 
000124 
040524 
051117 
040440 
040440 
052116 
042504 
042524 
052517 
042522 
042524 
046440 
020056 

000 
047117 
042111 
041101 
044504 
020124 
000122 
047522 
043501 
047040 
051117 
052111 



051117 EM55: 

041440 

042105 

020101 

000124 

040507 EM56: 

042504 

047516 

0511 17 

044504 EM57: 

020124 

052122 

043505 

0421 17 

041440 

052103 

041440 EM60*. 

042105 

047101 

044440 

051105 

000105 

027124 EM61: 

020105 

036040 

047516 

040523 

041040 

042522 



.ASCIZ /PAR OR PDR CHANGED BY A RESET/ 



.ASCIZ /ILLEGAL MODE 01 NOT ABORTED/ 



.ASCIZ /SRO DID NOT REPORT ILLEGAL MODE 01 CORRECTLY/ 



.ASCIZ /PSW CHANGED BY AN RTI IN USER MODE/ 



.ASCIZ /MAINT. MODE (SRO <8>) NOT DISABLED BY A RESET/ 



044440 
042522 
052106 
046440 
020056 
053440 
000 
041522 
047514 
020104 
044501 
047515 

051040 
047105 
051117 
020104 
041517 

02012." 
043040 
020122 
020124 
032461 



EM62: .ASCIZ /DATA INCORRECT AFTER A MAINT. MODE WRITE/ 



.ASCIZ /SOURCE RELOCATED IN MAINT. MODE/ 



.ASCIZ /NON RESIDENT ABORT DID NOT OCCUR/ 



.ASCIZ /ERROR FLAG FOR NR ABORT (BIT15) IN SRO DID NOT SET/ 
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KTHB. 


P1 1 2' 


7-JUN-78 


09:27 


ERROF 


5784 


0-15324 


020051 


047111 


051440 


57B5 


045332 


030122 


042040 


0421 11 


5786 


045340 


047040 


052117 


051440 


5787 


045346 


052105 


000 




5788 


045351 


123 


031122 


042040 EM66! 


5789 


045356 


0421 1 1 


047040 


0521 17 


5790 


045364 


043040 


042522 


055105 


5791 


045372 


020105 


044124 


020105 


5792 


045400 


044526 


052122 


040525 


5793 


045406 


0201 14 


042101 


051 104 


5794 


045414 


020123 


0431 17 


052040 


5795 


045422 


042510 


040440 


047502 


5796 


045430 


052122 


020104 


0471 11 


5797 


045436 


051124 


000 




5798 


045441 


062 


042116 


047040 EM67: 


5799 


045446 


0471 17 


051040 


051505 


5800 


045454 


0421 11 


047105 


020124 


5?301 


045462 


041 101 


051117 


020124 


5302 


045470 


044504 


020104 


047516 


5303 


035476 


020124 


041517 


052503 


5R04 


045504 


000122 






5805 


045506 


047062 


020104 


047516 EM70 


5906 


045514 


0201 16 


042522 


044523 


5807 


045522 


042504 


052116 


040440 


5803 


045530 


047502 


052122 


041440 


5309 


045536 


05250 1 


042523 


020104 


5910 


045544 


051 123 


020062 


047524 


5811 


045552 


041440 


040510 


043516 


5312 


045560 


000105 






5813 


045562 


051123 


020060 


040527 EM71 


5314 


045570 


020123 


047516 


02012* 


5815 


045576 


046103 


040505 


042522 


5816 


045604 


020104 


054502 


044440 


5817 


045612 


044516 


027124 


000040 


5318 










5819 


045620 


0461 17 


020104 


041520 DH1 ! 


5820 


045626 


020040 


046117 


020104 


5821 


045634 


051520 


020127 


033122 


5822 


C45642 


053440 


051501 


020040 


5823 


045650 


042524 


052123 


047516 


5824 


045656 


020040 


051105 


047522 


5825 


045664 


050122 


000103 




5826 


045670 


0461 17 


020104 


041520 DH2t 


5827 


045676 


020040 


046117 


020104 


5828 


045704 


051520 


020127 


033122 


5829 


045712 


053440 


051501 


020040 


5830 


045720 


051123 


020060 


020040 


5831 


045726 


020040 


051123 


020062 


5832 


045734 


020040 


020040 


042524 


5833 


045742 


052123 


047516 


020040 


5834 


045750 


051 105 


047522 


050122 


5835 


045756 


000103 






5836 


045760 


051'27 


052117 


0201 C3 DH3: 


5837 


045766 


020040 


042522 


042101 


5838 


045774 


020040 


020040 


042524 


5839 


046002 


052123 


047516 


020040 



SEO 01S0 



.ASCIZ /SR2 DID NOT FREEZE THE VIRTUAL ADORS OF THE ABORTD INTR/ 



.ASCIZ /2ND NON RESIDENT ABORT DID NOT OCCUR/ 



.ASCIZ /2ND NON RESIDENT ABORT CAUSED SR2 TO CHANGE/ 



.ASCIZ /SRO WAS NOT CLEARED BY INIT. / 



.ASCIZ /OLD PC OLD PSW R6 WAS TESTNO ERRORPC/ 



.ASCIZ /OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC/ 



.ASCIZ /WROTE READ TESTNO ERRORPC/ 



si%r "i?-js?-iT%& M MAC,m r»&r»issiiiirii°> Ss^lu 2 * F0RM ats 



SEQ 0121 



5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5367 

5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5376 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 



046010 

046016 

046020 

046026 

046034 

046042 

046050 

046056 

046064 

046072 

046100 

046106 

0461 14 

046122 

046130 

046136 

046144 

046150 

046156 

046164 

046172 

046200 

046206 

046214 

046222 

046230 

046236 

046244 

046252 

046260 

046266 

046270 

046276 

046304 

046312 

046320 

046326 

046334 

046336 

046344 

046352 

046360 

046366 

046374 

046402 

046410 

046416 

046424 

046430 

046436 

046444 

046452 

046460 

046466 

046474 

046500 



051 105 

000103 

042101 

020123 

047516 

047522 

042522 

051105 

051522 

0201 15 

047101 

020040 

020104 

047515 

042524 

020040 

050122 

042522 

020122 

020040 

042101 

040516 

042101 

020123 

046101 

031063 

033067 

030061 

052123 

051105 

000103 

042522 

020122 

020105 

042101 

042522 

044502 

100051 

042101 

020123 

046101 

052103 

032065 

034071 

031063 

042524 

020040 

050122 

042522 

020040 

047516 

047522 

040520 

020122 

042120 

046103 



047522 050122 



051104 
042524 
020040 
050122 
044507 
040455 
020040 
047440 
0265C4 
051117 
020040 
052125 
052123 
051105 
000103 
044507 
042522 
020040 
024055 
054522 
051104 
047450 
020051 
030061 
032065 
020040 
047516 
047522 

044507 
051127 
020040 
020040 
042101 
040516 

051104 
047450 
020051 
046101 
031063 
033067 
030061 
052123 
051105 
000103 
042101 
042524 
020040 
050122 
026522 
040520 
100122 
04050S 



DH10: 



051505 DH7: 

052123 

051 105 

000103 

052123 

042104 

052516 

100106 

042105 

04245E 

044524 

020123 

047516 

047522 



052123 
042101 
042522 
044502 
100051 
051505 
052103 
032065 
034071 
031063 
042524 
020040 
050122 

052123 
0521 17 
042522 
020040 
024055 
054522 

051505 
052103 
047450 
020051 
030061 
032065 
020040 
047516 
047522 

020040 
052123 
051105 
000103 
042120 
026522 

042522 



DH1 1 : 



.ASCIZ /ADDRESS TESTNO ERRORPC/ 

.ASCII /REGISTER-ADDRS NUM OF/<CRLF> 

.ASCIZ /AND-ED OR-ED TIMOUTS TESTNO ERRORPC/ 

.ASCII /REGISTR READ READ-( BINARY )/<CRLF> 

.ASCIZ /ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC/ 



DH12: .ASCII /REGISTR WROTE READ READ-( BINARY)/<CRLF> 



.ASCIZ /ADDRESS (OCTAL) (OCTAL) 54321 09B765432 10 TESTNO ERRORPC/ 



DH13: .ASCIZ /READ TESTNO ERRORPC/ 

DH16: .ASCII /PAR-PDR PAR-PDR/<CRLF> 

.ASCIZ /CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC/ 



"> 
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.ASCII /PHYSICL VIRTUAL/<CRLF> 

.ASCIZ /ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC/ 



SEO 0122 



5896 


046506 


020104 


043105 


042506 


5897 


046514 


052103 


020104 


054105 


5898 


046522 


042520 


052103 


020104 


5899 


046530 


042522 


042503 


0531 11 


5900 


046536 


020104 


042524 


052123 


5901 


046544 


047516 


020040 


051 105 


5902 


046552 


047522 


050122 


000103 


5903 


046560 


044120 


051531 


041511 DH17! 


5904 


046566 


0201 14 


044526 


052122 


5905 


046574 


040525 


100114 




5906 


046600 


042101 


051104 


051505 


5907 


046506 


020123 


042101 


051104 


5908 


046614 


051505 


020123 


044513 


5909 


046622 


040.-20 


032122 


020040 


5910 


046630 


042524 


052123 


047516 


5911 


046636 


020040 


051105 


047522 


5912 


046644 


050122 


000103 




5913 


046650 


044120 


051531 


041511 DH20: 


5914 


046656 


0201 14 


040520 


020122 


5915 


046664 


020064 


020040 


040520 


5916 


046672 


020122 


100065 




5917 


046676 


042101 


051 104 


051505 


5918 


046704 


020123 


041126 


020101 


5919 


046712 


020040 


020040 


041126 


5920 


046720 


020101 


020040 


020040 


5921 


046726 


040520 


020122 


020064 


5922 


046734 


020040 


040520 


020122 


5923 


046742 


020065 


020040 


051520 


5924 


046750 


020127 


020040 


020040 


5925 


046756 


042524 


052123 


047516 


5926 


046764 


020040 


051105 


047522 


5927 


046772 


050122 


000103 




5928 


046776 


042120 


020122 


020040 DH2U 


5929 


047004 


020040 


044526 


052122 


5930 


047012 


040525 


100114 




5931 


047016 


042524 


052123 


042105 


5932 


047024 


020040 


042101 


051104 


5933 


047032 


051505 


020123 


042524 


5934 


047040 


052123 


047516 


020040 


5935 


047046 


051105 


047522 


050122 


5936 


047054 


000103 






5937 


047056 


042120 


020122 


047111 DH22: 


5938 


047064 


020040 


042120 


020122 


5939 


047072 


020040 


020040 


044526 


5940 


047100 


052122 


040525 


1 14 


5941 


047105 


105 


051122 


0511 17 


5942 


0471 12 


020040 


052040 


051505 


5943 


047120 


042524 


020104 


040440 


5944 


047126 


042104 


042522 


051523 


5945 


047134 


052040 


051505 


047124 


5946 


047142 


02C1 17 


042440 


051122 


5947 


047150 


051117 


041520 


00 r 


5948 


047155 


120 


051104 


020040 DH23: 


5949 


047162 


020040 


052040 


051505 


5950 


047170 


047124 


020117 


042440 


5951 


047176 


051122 


051117 


041520 



.ASCII /PHYSICL PAR 4 PAR 5/<CRLF> 

.ASCIZ /ADDRESS VBA VBA PAR 4 PAR 5 PSW 



TESTNO ERRORPC/ 



.ASCII /PDR VIRTUAL/<CRLF> 

.ASCIZ /TESTED ADDRESS TESTNO ERRORPC/ 

.ASCII /PDR IN PDR VIRTUAL/ 

.ASCIZ /ERROR TESTED ADDRESS TESTNO ERRORPC/ 

.ASCIZ /PDR TESTNO ERRORPC/ 
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SEO 0123 



5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
5973 
5974 
5375 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5383 
5984 
5985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 



047204 
047205 
047212 
047220 
047226 
047234 
047242 
047245 
047252 
047260 
047266 
047274 
047302 
047305 
047312 
047320 
047326 
047334 
047342 
047350 
047356 
047364 
047365 
047372 
047400 
047406 
047414 
04' 422 
047430 
047436 
047444 
047445 
047452 
047460 
047466 
047474 
047502 
047510 
047516 
047524 
047525 
047532 
047540 
047546 
047554 
047562 
047565 
047572 
047600 
047606 
047614 
047622 
047630 
047636 
047644 
047645 



000 

120 

051501 

041505 

051505 

042440 

041520 

120 

020040 

020040 

051505 

042440 

041520 

123 

051501 

041505 

051 104 

050040 

020040 

04 7 124 

051122 

000 

123 

051501 

041505 

051104 

050040 

020040 

047124 

051122 

000 

126 

020056 

051104 

030122 

051440 

051501 

047124 

051 122 

000 

126 

020056 

051104 

051505 

042440 

041520 

126 

020056 

051104 

03C122 

042440 

042124 

047<24 

051122 

000 

126 



051104 
042440 
042124 
047124 
051 122 

000 
051 104 
050040 
020040 
047124 
051122 

000 
030122 
042440 
042124 
032040 
053523 
052040 
020117 
051117 

031122 
042440 
042124 
032040 
053523 
052040 
020117 
051117 

041056 
045440 
020064 
053440 
031122 
052040 
020117 
051117 

041056 
045440 
020064 
047124 
051122 
000 
041056 
045440 
020064 
053440 
050130 
052040 
020117 
051117 



053440 DH24: 

050130 

052040 

020117 

051117 

032040 DH26: 

053523 

052040 

0201 17 

051 1 17 

053440 DH30: 

050130 

050040 

020040 

020040 

051505 

042440 

041520 



053440 
050130 
050040 
020040 
020040 
051505 
042440 
041520 

04045b 
0501 11 
051440 
051501 
053440 
051505 
042440 
041520 

040456 
050111 
052040 
0201 17 
0511 17 

040456 
0501 11 
051440 
051501 
041505 
051505 
042440 
041520 



DH3U 



DH32: 



.ASCIZ /PDR WAS EXPECTD TESTNO ERRORPC/ 



.ASCIZ /PDR 4 PSW TESTNO ERRORPC/ 



.ASCIZ /SRO WAS EXPECTD PDR A PSW TESTNO ERRORPC/ 



.ASCIZ /SR2 WAS EXPECTD PDR 4 PSW TESTNO ERRORPC/ 



.ASCIZ /V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC/ 



DH33: .ASCIZ /V.B.A. KIPDR4 TESTNO ERRORPC/ 



DH34: 



.ASCIZ /V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC/ 



041056 040456 DH35: .ASCIZ /V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC/ 
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SEQ 0124 



6008 


047652 


020056 


045440 


0501 11 


6009 


047660 


051 104 


020064 


051440 


6010 


047666 


031 122 


053440 


051501 


6011 


047674 


042440 


050130 


041505 


6012 


047702 


042124 


052040 


051505 


6013 


047710 


047124 


020117 


042440 


6014 


047716 


051 122 


051117 


041520 


6015 


047724 


000 






6016 


047725 


123 


031122 


053440 


6017 


047732 


051501 


042440 


050130 


6018 


047740 


041505 


042124 


052040 


6019 


047746 


051505 


047124 


0201 17 


6020 


047754 


042440 


051122 


051117 


6021 


047762 


041520 


000 




6022 


047765 


106 


051111 


052123 


6023 


047772 


040440 


047502 


052122 


6024 


050000 


020040 


020040 


051440 


6025 


050006 


041505 


047117 


020104 


6026 


050014 


041 101 


051117 


100124 


6027 


050022 


051 123 


020060 


040527 


6028 


050030 


020123 


051123 


020062 


6029 


050036 


040527 


020123 


051123 


6030 


050044 


020060 


040527 


020123 


6031 


050052 


051123 


020062 


040527 


6032 


050060 


020123 


042524 


052123 


6033 


050066 


047516 


020040 


051105 


6034 


050074 


047522 


050122 


000103 


6035 


050102 


051123 


020060 


040527 


6036 


0501 10 


020123 


051123 


020062 


6037 


0501 16 


040527 


020123 


042524 


6038 


050124 


052123 


047516 


020040 


6039 


050132 


051105 


047522 


050122 


6040 


050140 


000103 






6041 


050142 


051J20 


020127 


040527 


6042 


050150 


020123 


033122 


053440 


6043 


050156 


051501 


020040 


042524 


6044 


050164 


052123 


047516 


020040 


6045 


050172 


051 105 


047522 


050122 


6046 


050200 


000103 






6047 


050202 


054105 


042520 


052103 


6048 


050210 


042105 


020040 


020040 


6049 


050216 


020040 


020040 


051040 


6050 


050224 


041505 


044505 


042526 


6051 


050232 


100104 






6052 


050234 


051123 


020060 


020040 


6053 


050242 


020040 


051123 


020062 


6054 


050250 


020040 


020040 


051 123 


6055 


050256 


020060 


040527 


020123 


6056 


050264 


051 123 


020062 


040527 


6057 


050272 


02C123 


042524 


052123 


6058 


050300 


047516 


020040 


051105 


6059 


050306 


047522 


050122 


000103 


6060 


050314 


054105 


042520 


052103 


6061 


050322 


042105 


100072 




6062 


050326 


051520 


020127 


020040 


6063 


050334 


020040 


041520 


020040 



.ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 



.ASCII /FIRST ABORT SECOND ABORT/<CRLF> 



.ASCIZ /SRO MAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC/ 



.ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 



.ASCIZ /PSW WAS R6 WAS TESTNO ERRORPC/ 



.ASCII /EXPECTED RECEIVED/<CRLF> 



.ASCIZ /SRO SR2 SRO WAS SR2 WAS TESTNO ERRORPC/ 



.ASCII /EXPECTED:/<CRLF> 

.ASCII /PSW PC SRO SR2/<CRLF> 
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SEQ 012S 



6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
60B1 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
61 10 
6111 
6112 
61 13 
6114 
6115 
6116 
6117 
6118 
6119 



050342 
050350 
050356 
050362 
050370 
050376 
050404 
050412 
050417 
050424 
050431 
050436 
050444 
050452 
050460 
050466 
050474 
050502 
050510 
05051 1 
050516 
050524 
050526 
050534 
050542 
050550 
050556 
050564 
050566 
050574 
050602 
050606 
050614 
050622 
050630 
050636 
050644 
050646 
050654 
050662 
05C664 
050672 
050700 
050706 
050714 
050722 
050730 
050736 
050744 
050752 
050760 
050764 
050772 
051000 
051006 
051014 



020040 
020060 
051 123 
033461 
020040 
024464 
030460 
031450 

122 
042526 

120 
020040 
020040 
030-22 
051440 
020040 
047124 

051 122 
000 
104 

U2004U 
100101 
054105 
020104 
053111 
052123 
051105 
000103 
042524 
020040 
050122 

051 123 
020123 
040527 
052123 
051105 
000103 
044120 
020114 
100064 
042101 
020123 
027101 
020122 
051 123 
020123 
040527 
020127 
042524 
020040 
050122 
051 123 
020123 
052103 
052123 
051105 



020040 
020040 
100062 
030060 
031450 
020040 
033464 
024444 
041505 
035104 
053523 
050040 
020040 
020040 
031122 
052040 
020117 
051 117 

052101 
042040 

042520 
042522 
020104 
047516 
047522 

052123 
051105 
000103 
020060 
051123 
020123 
047516 
047522 

051531 
040520 

051104 
027126 
020040 
020064 
020060 
051123 
020123 
020040 
052123 
051105 
000103 
020060 
054105 
020104 
047516 
047522 



051123 
020040 

033461 
025444 
031060 
020040 

200 
044505 

200 
020040 
020103 
051440 
020040 
020040 
051505 
042440 
041520 

020101 DH46: 
052101 

052103 
042503 
042524 
020040 
050122 

047516 DH50: 
047522 

040527 DH51: 

020062 

042524 

020040 

050122 

041511 DH52: 
020122 

051505 
027102 
040520 
020040 
040527 
020062 
051520 
020040 
047516 
047522 



.ASCII /170017 (3$+4) 020147 (3$)/<CRLF> 



.ASCII /RECEIVED:/<CRLF> 

.ASCIZ /PSW PC SRO SR2 TESTNO ERRORPC/ 



.ASCII /DATA DATA/<CRLF> 

.ASCIZ /EXPECTD RECEIVD TESTNO ERRORPC/ 

.ASCIZ /TESTNO ERRORPC/ 

.ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 

.ASCII /PHYSICL PAR 4/<CRLF> 

.ASCIZ /ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW TESTNO ERRORPC/ 



04052" 
042520 
042524 
020040 
050122 



DH57: 



.ASCIZ /SRO WAS EXPECTD TESTNO ERRORPC/ 
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.ASCIZ /PSW WAS EXPECTD TESTNO ERRORPC/ 






6120 


051022 


000103 








G121 


051024 


051520 


020127 


040527 


DH60 


6122 


051032 


020123 


054105 


042520 




6123 


051040 


052103 


020104 


042524 




6124 


051046 


052123 


047516 


020040 




6125 


051054 


051105 


047522 


050122 




6126 


051062 


000103 








6127 


051064 


051 123 


020060 


020040 


DH61 


6128 


051072 


020040 


051123 


020062 




6129 


051100 


020040 


042524 


052123 




6130 


051106 


047516 


020040 


051 105 




6131 


0511 14 


047522 


050122 


000103 




6132 


051 122 


051123 


020062 


054105 


DH62: 


6133 


051130 


020120 


051123 


020062 




6134 


051136 


042522 


020103 


042524 




6135 


051144 


052123 


047516 


042440 




6136 


051152 


051 122 


051117 


041520 




6137 


051160 


000 








6138 


051161 


123 


030122 


042440 


DH63: 


6139 


051166 


050130 


051440 


030122 




6140 


051174 


051040 


041505 


052040 




6141 


051202 


051505 


047124 


020117 




6142 


051210 


051105 


047522 


050122 




6143 


051216 


000103 








6144 












6145 












6146 












6147 


051220 


001356 


001360 


001354 


DT1: 


6148 


051226 


001352 


0011 16 


000000 




6149 


051234 


001356 


001360 


001354 


DT2: 


6150 


051242 


001366 


001370 


001352 




6151 


051250 


001 116 


000000 






6152 


051254 


001162 


001164 


001352 


DT3: 


6153 


051262 


0011 16 


000000 






6154 


051266 


001162 


001352 


001116 


DT7: 


6155 


051274 


000000 








6156 


051276 


001374 


001376 


001400 


DT10! 


6157 


051304 


001352 


001116 


000000 




6158 


051312 


001162 


001164 


001164 


DTIi: 


6159 


051320 


001352 


001116 


000000 




6160 


051326 


001162 


001164 


001 166 


DT12: 


6161 


051334 


001166 


001352 


0011 16 




6162 


051342 


000000 








6163 


051344 


001 162 


001352 


0011 16 


DT13: 


6164 


051352 


000000 








6165 


051354 


001 162 


001 164 


001174 


DT16: 


6166 


051362 


001166 


001352 


0011 16 




6167 


051370 


000000 








6168 


051372 


001406 


001402 


001172 


DT17: 


6169 


051400 


001352 


001116 


000000 




6170 


051406 


001406 


001402 


001404 


DT20: 


6171 


051414 


001172 


001174 


001176 




6172 


051422 


001?52 


001116 


OOOOCO 




6173 


051430 


001174 


001170 


001352 


DT21: 


6174 


051436 


001116 


000000 






6175 


051442 


001162 


001174 


001170 


DT22: 



.ASCIZ /SRO SR2 TESTNO ERRORPC/ 



.ASCIZ /SR2 EXP SR2 REC TESTNO ERRORPC/ 



.ASCIZ /SRO EXP SRO REC TESTNO ERRORPC/ 



.EVEN 

.WORD TRAPPC.TRAPPS.WASR6, TESTNO, SERRPC.O 

.WORD TRAPPC.TRAPPS.WASR6, WASSRO, WASSR2, TESTNO, SERRPC ,0 

.WORD $REG0,$REG1, TESTNO, SERRPC.O 

.WORD $REG0, TESTNO, SERRPC.O 

.WORD ANDADR.ORADR.TONUM, TESTNO. SERRPC.O 

.WORD $REG0,$REG1 ,$REG1 , TESTNO, SERRPC.O 

.WORD $REG0,$REG1 ,$REG2 ,$REG2, TESTNO, SERRPC.O 

.WORD SREGO, TESTNO, SERRPC.O 

.WORD SREGO, SREG1 ,$REG5,$REG2, TESTNO, SERRPC.O 

.WORD PBALO.VIRT1 ,$REG4, TESTNO, SERRPC.O 

.WORD PBALO.VIRT1 ,VIRT2 ,$REG4 ,$REG5, STMPO, TESTNO. SERRPC.O 

.WORD $REG5,$REG3, TESTNO, SERRPC.O 

.WORD SREGO, SREG5,$REG3, TESTNO, SERRPC.O 



.■■-■.> : :- ■ ■■■■:& 
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SEQ 0127 



6176 


051450 


001352 


001 116 


000000 






6177 


051456 


001174 


001352 


001116 


DT23: 


.WORD 


6178 


051464 


000000 










6179 


051466 


001166 


001164 


001352 


DT24: 


.WORD 


6180 


051474 


001116 


000000 








6181 


051500 


001166 


001176 


001352 


DT26: 


.WORD 


6182 


051506 


001 1 16 


000000 








6183 


051512 


001366 


001170 


001166 


DT30: 


.WORD 


6184 


051520 


001176 


001352 


001116 






6185 


051526 


000000 










6186 


051530 


001370 


001172 


001166 


DT31: 


.WORD 


6187 


051536 


001176 


001352 


001 i ie 






6188 


051544 


000000 










6189 


051546 


001 162 


001172 


001366 


DT32: 


.WORD 


6190 


051554 


001370 


001352 


001116 






6191 


051562 


000000 










6192 


051564 


001162 


001172 


001352 


DT33: 


.WORD 


6193 


051572 


001116 


000000 








6194 


051576 


001162 


001172 


001366 


DT34: 


.WORD 


6195 


051604 


001 1G6 


001352 


001116 






6196 


051612 


000000 










6197 


051614 


001162 


001172 


001370 


DT35: 


.WORD 


6198 


051622 


001170 


001352 


0011 16 






6199 


051630 


000000 










6200 


051632 


001370 


001164 


001352 


DT36: 


.WORD 


6201 


051640 


001 116 


000000 








6202 


051644 


001176 


001202 


001366 


DT37: 


.WORD 


6203 


051652 


001370 


001352 


001116 






6204 


051660 


000000 










6205 


051662 


001366 


001370 


001352 


DT40: 


.WORD 


6206 


051670 


001 116 


000000 








6207 


051674 


001164 


001166 


001352 


DT42: 


.WORD 


6208 


051702 


001116 


000000 








6209 


051706 


001 : 62 


001164 


001366 


DT44: 


.WORD 


6210 


051714 


001370 


001352 


0011 16 






6211 


051722 


000000 










6212 


051724 


001 164 


001170 


001366 


DT45: 


.WORD 


6213 


051732 


001370 


001352 


001116 






6214 


051740 


000000 










6215 


051742 


001162 


001164 


001352 


DT46: 


.WORD 


6216 


051750 


001 1 16 


000000 








6217 


051754 


001352 


001116 


000000 


DT50: 


.WORD 


621B 


051762 


001366 


001370 


001352 


DT51: 


.WORD 


6219 


051770 


001116 


000000 








6220 


051774 


001406 


001402 


001172 


DT52: 


.WORD 


6221 


052002 


001366 


001370 


001176 






6222 


052010 


001352 


001116 


000000 






6223 


052016 


001366 


001164 


001352 


DT57: 


.WORD 


6224 


052024 


001116 


000000 








6225 


052030 


001164 


001166 


001352 


DTCO: 


.WORD 


6226 


052036 


0011 16 


000000 








6227 


052042 


001370 


001172 


001352 


DT64: 


.WORD 


622B 


052050 


001116 


000000 








6229 


052054 


001366 


001370 


001352 


DT65: 


.WORD 


6230 


052062 


001116 


000000 








6231 


052066 


001364 


001370 


001352 


DT66: 


.WORD 



SREG5, TESTNO, SERRPC.O 

$REG2,$REG1 .TESTNO, SERRPC.O 

SREG2 . STMPO .TESTNO , SERRPC , 

WASSRO , SREG3 , SREG2 , STMPO , TESTNO , SERRPC , 

WASSR2 . $REG4 , SREG2 , STMPO , TESTNO .SERRPC . 

SREGO, SREG4, WASSRO, WASSR2, TESTNO, SERRPC.O 

SREGO, SREG4, TESTNO, SERRPC.O 

SREGO, SREG4, WASSRO, SREG2, TESTNO, SERRPC.O 

SREGO, $REG4,WASSR2,$REG3, TESTNO. SERRPC.O 

WASSR2.SREG1 .TESTNO, SERRPC.O 

STMPO, STMP2, WASSRO, WASSR2. TESTNO. SERRPC.O 

WASSRO, WASSR2. TESTNO. SERRPC.O 

SREG1 .SREG2, TESTNO, SERRPC.O 

SREGO, SREG1, WASSRO, WASSR2. TESTNO, SERRPC.O 

SREG1 , SREG3 , WASSRO , WASSR2 .TESTNO . SERRPC . 

SREGO, SREG1 , TESTNO, SERRPC.O 

TESTNO, SERRPC.O 

WASSRO, WASSR2. TESTNO, SERRPC.O 

PBALO , V I RT 1 , SREG4 , WASSRO , WASSR2 , STMPO . TESTNO . SERRPC .0 



WASSRO, SREG1 , TESTNO, SERRPC.O 
SREG1 .SREG2, TESTNO, SERRPC.O 
WASSR2.SREG4, TESTNO. SERRPC.O 
WORD WASSRO, WASSR2. TESTNO, SERRPC.O 
WORD C0RSR2.WASSR2, TESTNO. SERRPC.O 



# i 
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seo 01 as 



6232 
6233 


052074 
052100 


001 116 
001362 


000000 
001366 


001352 


DT67: 


.WORD 


C0RSR0,WASSR0,T1 


6234 


052106 


001116 


000000 










6235 
6236 


0521 12 


000 


000 


000 


DF1: 


.BYTE 


0,0,0,0,0 


6237 


0521 15 


000 


000 










623B 


0521 17 


000 


000 


000 


DF2! 


.BYTE 


0,0,0,0,0,0,0 


6239 


052122 


000 


000 


000 








6240 


052125 


000 












6241 


052126 


000 


000 


000 


DF3: 


.BYTE 


0,0,0,0 


6242 


052131 


000 












6243 


052132 


000 


000 


000 


DF7: 


.BYTE 


0,0,0 


6244 


052135 


000 


000 


001 


DF10: 


.BYTE 


0,0,1,0,0 


6245 


052140 


r -00 


000 










6246 


052142 


000 


000 


002 


DF11: 


.BYTE 


0,0,2,0,0 


6247 


052145 


000 


000 










6248 


052147 


000 


000 


000 


DF12: 


.BYTE 


0,0,0,2,0,0 


6249 


052152 


002 


000 


000 








6250 


052155 


000 


000 


000 


DF13! 


.BYTE 


0,0,0 


6251 


052160 


000 


000 


000 


DF16: 


.BYTE 


0,0,0,0,0,0 


6252 


052163 


uOu 


000 


000 








6253 


052166 


003 


000 


000 


DF17: 


.BYTE 


3,0,0,0,0 


6254 


052171 


000 


000 










6255 


052173 


003 


000 


000 


DF20: 


.BYTE 


^,0,0,0,0,0,0,0 


6256 


052176 


000 


000 


000 








6257 


052201 


000 


000 










6258 


052203 


000 


000 


000 


DF21: 


.BYTE 


0,0,0,0 


6259 


052206 


000 












6260 


052207 


000 


000 


000 


DF22: 


.BYTE 


0,0,0,0,0 


6261 


052212 


000 


000 










6262 


052214 


000 


000 


000 


DF23: 


.BYTE 


0,0,0 


6263 


052217 


000 


000 


000 


DF24: 


.BYTE 


0,0,0,0 


6264 


052222 


000 












6265 


052223 


000 


000 


000 


DF30! 


.BYTE 


0,0,0,0,0,0 


6266 


052226 


000 


000 


000 








6267 


052231 


000 


000 


000 


DF46: 


.BYTE 


0,0,0,0 


6268 


052234 


000 












6269 


052235 


000 


000 




DF50: 


.BYTE 


0,0 


6270 


052237 


000 


000 


000 


DF51: 


.BYTE 


0,0,0,0 


6271 


052242 


000 












6272 


052243 


003 


000 


000 


DF52: 


.BYTE 


3,0,0,0,0,0,0,0 


6273 


052246 


000 


000 


000 








6274 


052251 


000 


000 










6275 


052253 


000 


000 


000 


DF57: 


.BYTE 


0,0,0,0 


6276 


052256 


000 












6277 


052257 


000 


000 


000 


DF60: 


.BYTE 


0,0,0,0 


6278 


052262 


000 












6279 


052263 


000 


000 


000 


DF6i: 


.BYTE 


0,0,0,0 


6280 


052266 


000 












6281 
















6282 




000001 








.END 





) 
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SEQ 0129 



ABASE ■ 

ACDW1 a 

ACDW2 ■ 

ACPUOPa 

ADDWO = 

ADDW1 = 

ADDW10= 

ADDW11» 

ADDW12= 

ADDW13= 

ADDW14* 

ADDW15» 

ADDW2 ■ 

ADDW3 > 

ADDW4 a 

ADDW5 « 

ADDW6 ■ 

ADDW7 * 

ADDW8 ■ 

ADDVJ9 ■ 

ADEVCTs 

ADEVM = 

AENV = 

AENVM a 

AFATAL" 

AMADR1= 

AMADR2= 

AMADR3* 

AMADR4* 

AMAM51= 

AMAMS2= 

AMAMS3a 

AMAMS4* 

AMS3AD= 

AMSGLG* 

AMSGTYa 

AMTYPIa 

AMTYP2* 

AMTYP3« 

AMTYPda 

ANDADR 

APASS = 

APRIORa 

APTCSU* 

APTENV= 

APTSlZa 

APTSPOa 

ASWREGa 

ATESTNa 

AUNIT a 

AUSWR » 

AVECT1» 

AVECT2* 

BITO a 

BITOO » 

BIT01 - 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

001374 

oooooo 
oooooo 

000040 
000001 
000200 
000100 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

000001 
000001 
000002 



815 


856 


815 


858 


815 


859 


815 


830 


815 


860 


815 


861 


815 


870 


815 


871 


815 


872 


815 


873 


815 


874 


815 


875 


815 


862 


815 


863 


815 


864 


815 


865 


815 


866 


815 


867 


815 


868 


815 


869 


815 


821 


815 


857 


815 


826 


815 


827 


815 


818 


815 


843 


815 


847 


815 


850 


815 


853 


815 


837 


815 


845 


815 


648 


815 


851 


815 


823 


815 


824 


815 


817 


815 


838 


815 


846 


815 


849 


815 


852 


890* 


1580* 


815 


820 


815 




4992 


5097# 


4457 


4985 


1398 


5094* 


4987 


5055 


815 


828 


815 


819 


815 


822 


815 


829 


815 


854 


815 


85E 


6280 




618* 


628 


617# 


627 



1642* 1660* 1682* 1700* 1722* 1740* 1762* 8158 



5096* 
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SEO 0130 



BIT02 


X 


000004 


616* 


626 










BIT03 


s 


000010 


615* 


625 










QIT04 


2 


000020 


614* 


624 










BIT05 


= 


000040 


613* 


623 










BIT06 


= 


000100 


612* 


622 










BIT07 


= 


000200 


61 1# 


621 










BITOB 


3 


000400 


610* 


620 


4385 








BIT09 


s 


001000 


609* 


619 


4393 


4468 






BIT1 


s 


000002 


627* 












BIT10 


3 


002000 


608* 


4445 










BIT11 


S 


004000 


607* 


4400 










BIT12 


3 


010000 


606* 


4340 










BIT13 


S 


020000 


605* 


4452 










BIT14 


s 


040000 


604* 


4371 










BIT15 


s 


100000 


603* 


1799 










BIT2 


a 


000004 


626* 












BIT3 


s 


000010 


625* 












BIT4 


a 


000020 


624* 


702 










BIT5 


X 


000040 


623* 












8IT6 


s 


000100 


622* 


703 










BIT7 


s 


000200 


621* 












BIT8 


" 


000400 


620* 
2566 


2207 
2592 


2209 


2260 


2278 


2344 


BIT9 


s 


001000 


619* 












BPTVEC 


:» 


000014 


635* 












CKSWR 


s 


104410 


4370 


4434 


4467 


5390* 






CMPREG 




036162 


2078 


2087 


2096 


2105 


4649* 




CMSG 




037537 


4942 


4953* 










CNTRLC 




037460 


4788 


4876 


4940* 








COR5R0 




001362 


885* 


3480* 


6233 








CQRSR2 




001364 


886* 


3468* 


6231 








CR 


a 


000015 


543* 


5031 


5041 








CRLF 


8 


000200 


544* 


1422 


5002 


5041 


5B46 


5857 








6060 


6062 


6067 


6072 


6083 


8101 


DDISP 


a 


177570 


550* 


782 


1386 








DF1 




052112 


917 


6236* 










DF10 




052135 


960 


6244* 










DF1 1 




052142 


967 


1199 


6246* 








DF12 




052147 


974 


993 


6248* 








DF13 




052155 


980 


986 


6250* 








DF16 




052160 


1000 


6251* 










DF1 7 




052166 


1007 


6253* 










DF2 




0521 17 


923 


1235 


6238* 








DF20 




052173 


1014 


6255* 










DF21 




052203 


1021 


6258* 










DF22 




052207 


1028 


6260* 










DF23 




052214 


1034 


1130 


6262* 








DF24 




052217 


1040 


1046 


1052 


1058 


10B2 


1099 


DF3 




052126 


929 


935 


941 


947 


1229 


6241* 


DF30 




052223 


1064 


1070 


1o/6 


1088 


1093 


1106 


DF46 




052231 


1154 


1161 


1186 


6267* 






DP50 




052235 


1167 


1192 


1205 


1223 


6269* 




DF51 




052237 


1173 


6270* 










DF52 




052243 


1180 


6272* 










DF57 




052253 


1211 


6275* 










DF60 




052257 


1217 


6277* 











CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAG? 133 
CFKTHB.P11 27-JUN-78 09:27 CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0131 



DF61 


052263 


DF7 


052132 


DH1 


045620 


DH10 


046050 


DH11 


046150 


DH12 


046270 


DH13 


046430 


DH16 


046460 


DH17 


046560 


DH2 


045670 


DH20 


046650 


DH21 


046776 


DH22 


047056 


DH23 


047155 


DH24 


047205 


DH26 


047245 


DH3 


045760 


DH30 


047305 


DH31 


047365 


DH32 


047445 


DH33 


047525 


DH34 


047565 


DH35 


047645 


DH36 


047725 


DH37 


047765 


DH40 


050102 


DH42 


050142 


DH44 


050202 


DH45 


050314 


DH4S 


05051 1 


DH50 


050566 


DH51 


050606 


DH52 


050646 


DH57 


050764 


DH60 


051024 


DH61 


051064 


DH62 


051122 


DH63 


051161 


DH7 


046020 


DISPLA 


001142 


DISPRE 


000174 


DSWR » 


- 177570 


DT1 


051220 


DT10 


051276 


DT11 


051312 


DT12 


051326 


DT13 


051344 


DT16 


051354 


DT17 


051372 


DT2 


051234 


DT20 


051406 


DT21 


051430 


DT22 


051442 


DT23 


051456 


DT24 


051466 


DT26 


051500 



1247 


1253 


1260 1267 


953 


6243* 




915 


5819* 




957 


5846* 




964 


1196 


5857* 


971 


990 


5871* 


978 


984 


5888* 


997 


5892* 




1004 


5903* 




921 


1233 


5826* 


1011 


5913* 




1018 


5928* 




1025 


5937* 




1032 


1128 


5948* 


1038 


1044 


5953* 


1050 


1056 


5959* 


927 


933 


939 945 


1062 


5965* 




1068 


5974* 




1074 


5983* 




1080 


5992* 




1086 


5998* 




1091 


6007* 




1097 


1116 


1239 6016* 


1103 


6022* 




1110 


6035* 




1122 


6041* 




1134 


6047* 




1141 


6060* 




1151 


1158 


1 ' )3 6083* 


1165 


1190 


1203 1221 


1171 


6095* 




1177 


6101* 




1209 


6115* 




1215 


6121* 




1245 


1251 


1258 1265 


1271 


6132* 




1277 


6138* 




951 


5842* 




782* 


1386* 


1394* 4415* 


718* 


1394 




549* 


781 


1385 


916 


6147* 




959 


6156* 




966 


1198 


6158* 


973 


992 


6160* 


979 


985 


6163* 


999 


6165* 




1006 


6168* 




922 


1234 


6149* 


1013 


6170* 




1020 


6173' 




1027 


6175* 




1033 


1129 


6177* 


1039 


1045 


6179* 


1051 


1057 


6181* 



5836* 



* i 
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SEO 0132 



DT3 


051254 


DT30 


051512 


DT31 


051530 


DT32 


051546 


DT33 


051564 


DT34 


051576 


DT35 


051614 


DT36 


051632 


DT37 


051644 


DT40 


051662 


DT42 


051674 


DT44 


051706 


DT45 


051724 


DT46 


051742 


DT50 


051754 


DT51 


051762 


DT52 


051774 


DT57 


052016 


DT60 


052030 


DT64 


052042 


DT65 


052054 


DF66 


052066 


DT6V 


052100 


DT7 


051266 


EMTVEC- 


000030 


EM1 


041616 


EM10 


042175 


EM1 1 


042241 


EM12 


042301 


EM13 


042350 


EM14 


042405 


EM 15 


042440 


EM16 


042514 


EM17 


042556 


EM2 


041656 


EM20 


042626 


EM21 


042700 


EM 2 2 


042735 


EM23 


042774 


EM24 


043040 


EM25 


043100 


EM26 


043145 


EM27 


043215 


EM3 


041725 


EM30 


043264 


EM31 


043336 


EM32 


043403 


EM33 


043464 


EM34 


043547 


EM37 


043625 


EM4 


041764 


EM40 


043672 


EM41 


043741 


EM42 


043774 


EM43 


044033 


EM44 


044100 



928 


934 


940 948 


1063 


6183* 




1069 


6186* 




1075 


6189* 




1081 


6192* 




1087 


6194* 




1092 


6197* 




1098 


1117 


6200* 


1105 


6202* 




1111 


6205* 




1123 


6207* 




1136 


6209* 




1146 


6212* 




1153 


1160 


1185 6215* 


1166 


1191 


1204 1222 


1172 


6218* 




1179 


62200 




1210 


6223* 




1216 


6225* 




1240 


6227* 




1246 


1252 


1259 1268 


1272 


6231* 




1278 


6233* 




952 


6154* 




638* 


1355* 


1356* 


914 


5449* 




956 


5494* 




963 


5501* 




970 


5507* 




977 


5514* 




983 


5519* 




989 


5524* 




996 


5532* 




1003 


5538* 




920 


5455* 




1010 


5545* 




1017 


5552* 




1024 


5557* 




1031 


5563* 




1037 


5569* 




1043 


5575* 




1049 


5582* 




1055 


5589* 




926 


5462* 




1061 


5596* 




1067 


1090 


1096 1238 


1073 


5610* 




1079 


5619* 




1085 


5628* 




1102 


5636* 




932 


5468* 




1109 


5643* 




1115 


565C* 




1121 


5655* 




1127 


5661* 




1133 


5668* 
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CFKTHB. 


P11 2 


EM45 


044146 


EM46 


044223 


EM47 


044266 


EM5 


042017 


EM50 


044331 


EM51 


044367 


EM52 


044445 


EM53 


044523 


EM54 


044566 


EM55 


044624 


EM56 


044662 


EM57 


044716 


EM6 


042072 


EM60 


044773 


EM61 


045036 


EM62 


0451 14 


EM63 


045165 


EM64 


045225 


EMS5 


045266 


EM66 


045351 


EM67 


045441 


EM7 


042137 


EM70 


045506 


EM 71 


045562 


ERRTYP 


035556 


ERRVEC* 00&004 


FORMPA 


036354 


GNS * ****** 



27-JUN-78 09:27 



SEO 0133 



GTSWR = 104407 
HT = 000011 
IOTVEO 000020 
KERSTK* 001100 



KIPAR0= 
KIPAR1* 
KIPAR2= 
KIPAR3* 
KIPAR4= 

KIPAR5* 
KIPAR6* 
KIPAR7* 
KIPDRO* 

KIPDR1* 
KIPDR2= 
KIPDR3= 
KIPDR4= 



KIPDR5' 
KIPDR6* 
KIPDR7* 
LF 



172340 
172342 
172344 
172346 
172350 

172352 
172354 
172356 
172300 

172302 
172304 
172306 
172310 



172312 
172314 
172316 
000012 



1140 


5675* 


















1150 


5683* 


















1157 


5689* 


















938 


5473* 


















1164 


5695* 


















1170 


5701* 


















1176 


5709* 


















1182 


5717* 


















1189 


5723* 


















1195 


5728* 


















1202 


5733* 


















1208 


5738* 


















944 


5481* 


















1214 


5746* 


















1220 


5752* 


















1226 


5760* 


















1232 


5767* 


















1244 


5773* 


















1250 


5779* 


















1257 


5788* 


















1264 


5798* 


















950 


5488* 


















1270 


5805* 


















1276 


5813* 


















4454 

631* 
2353 


4500* 
1383 


1384* 


1395* 


1426* 


1427* 


2890* 


2900* 


4376 


4377< 


2379 


2405 


2432 


2455 


2497 


2523 


2549 


2575 


2601 


717 


1421 


4309 


4316 


5381 


5382 


5383 


5384 


5385 


5386 


5392 


5393 


5394 
















1416 


4949 


5388* 
















541* 


5000 


5041 
















636* 
704* 


1353* 
1537 


1354* 
1541 


1543 


2075 


2084 


2093 


2102 


2216 


2892 


3159 


3217 


3221 


3234 


3302 


3364 


3369 


3431 


3460 


3519 


3753 
691* 


4085 
1618 


4217 
1877 


1971 


2083 


2136 


2324 


3717* 


4626 


4664 


692* 


3718* 


















693* 


3719* 


















694* 


2251* 


2748 


2928* 


3289* 


3720* 










695* 


2252* 


2342* 


2368* 


2394* 


2421* 


2445* 


2486* 


2512* 


2538' 


2692* 


2699* 


2929* 


3290* 


3587* 


3721* 


3741* 


3893* 


4071* 




696* 


2643* 


2693* 


2700* 


3339* 












697* 




















698* 


2253* 


3722* 
















680* 


1658 


1924 


2019 


2074 


2125 


2197 


2205* 


2331 


2752 


4622 


4650 


















681* 




















682* 
683* 


2254* 


2272* 


2889* 


2893 


2932* 


3135* 


3291* 






684* 


2255* 


2«JJ0* 


2697* 


2939* 


3006* 


3140* 


3215* 


3292* 


3317 


3619* 


3740* 


3746* 


3891* 


3917* 


3919* 


3934* 


3936* 


3949* 


3951' 


3985* 


4000* 


4002* 


4019* 


4021* 


4070* 










685* 


2691* 


2698* 


3136* 


3341* 


3420* 


3498* 








686* 




















687* 


2256* 


2878* 


2881 














542* 


5035 


5041 

















4379* 4382* 

2672 2713 4725* 

5388 5390 5391 



3070 3142 3146 
3538 3598 3659 



2564* 2590* 2642* 



2756 2770 3726 



3340* 3497* 3589* 
3965* 3967* 3983* 
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SEQ 0134 



LOOP 




020466 


MGMERR 


002400 


MGMFLG 


002402 


MMVEC 


a 


000250 


ORADR 




001376 


PBAHI 




001410 


PBALO 




001406 


PIRQ 


a 


177772 


PIRQVE* 


000240 


PRO 


a 


000000 


PR1 


a 


000040 


PR2 


2 


000100 


PR3 


= 


000140 


PR4 


X 


000200 


PR5 


s 


000240 


PR6 


3 


000300 


PR7 


S 


000340 


PS 


s 


177776 


PSW 


* 


177776 



PWRMSG 


041554 


PWRVEC= 


000024 


RDCHR * 


104411 


RDLIN ■ 


104412 


RESREGx 


104414 


RESVEC» 


000010 


SAVREG» 


104413 


SETREG 


036070 


SRO « 


177572 



SR1 a 


177574 


SR2 


177576 


SR3 


172516 


STACK ■ 


001100 


START 


020000 


STKLMT* 


177774 


SWR 


001140 


SWREG 


000176 


SWO ■ 


000001 


SWOO s 


000001 


SW01 » 


000002 



1424* 


4351 
























13190 


1428 


2218 


2271 


2703 


2986 


3047 


3089 


3195 


3270 


3318 


3499 


3618 


3692 


3859 


4030 


4186 




















1320* 


1334* 


1432* 






















647* 


1428* 


1429* 


2201* 


2202* 


2218* 


2219* 


2257* 


2271* 


2662* 


2703* 


2938* 


2986* 


3005* 


3047* 


3062* 


3089* 


3139* 


3152* 


3195* 


3214* 


3227* 


3270* 


3295* 


3318* 


3361 * 


3367* 


3419* 


3451* 


3499* 


3745* 


3859* 


3895* 


4030* 


4078* 


4186* 








891* 


1581* 


1600* 


1621* 


1640* 


1661* 


1680* 


1701* 


1720* 


1741* 


1760* 


6156 




896* 


4744* 
























895* 


4735* 


4736* 


4741* 


6168 


6170 


6220 














548* 


























642* 


























565* 


























566* 


























567* 


























568* 


























569* 


























570* 


























571* 


























572* 


























545* 


546 
























546* 


1472* 


1473* 


1474 


1478* 


1486* 


1498* 


1500* 


1501 


1506* 


1512* 


1514* 


1515 


1519* 


1536* 


1538* 


1540* 


1836* 


1846* 


2417 


2441 


2639* 


2663 


2684 


2694* 


2696* 


2B12* 


2860* 


2943 


2976* 


2982* 


2984* 


3010 


3043* 


3045* 


3063* 


3518* 


3523* 


3530 


3532* 


3537* 


3540* 


3542* 


3558* 


3562 


3564* 


3649* 


3658* 


3660* 


3662* 


3750* 


3771* 


3783* 


3795* 


3806* 


3820* 


3834* 


3847* 


3898* 


3909* 


3930* 


3946* 


2961* 


3978* 


3996* 


4013* 


4069* 


4080* 


4099* 


4112* 


4124* 


4135* 


4148* 


4162* 


4175* 


4187* 


4214* 


4257* 


45B4 


4586 


4726 






















5430 


5439* 
























637* 


1359* 


1C-30* 


5399* 


5400* 


5409* 


5415* 


5427* 


5428* 










4869 


5391* 
























5392* 


























5337 


5394* 
























632* 


1370* 


1377* 






















5322 


5393* 
























2076 


2085 


2094 


2103 


2123 


4621* 
















651* 


1330 


1332* 


1434* 


1578 


1780 


1837* 


1839 


1845* 


2207* 


2209 


2211* 


2217* 


2260* 


2278* 


2279 


2284* 


2344* 


2370* 


2396* 


2423* 


2446* 


2488* 


2514* 


2540* 


2566* 


2592* 


2660* 


2714 


2716* 


2879 


2880* 


2957 


2972* 


3024 


3039* 


3072 


3088* 


3160 


3176* 


3183 


3185* 


3235 


3251* 


3258 


3260* 


3310* 


3365 


3370 


3386 


3400* 


3425 


3432 


3435 


3445 


3454 


3467 


3475 


3479 


3486* 


3600 


3616* 


3655 


3657* 


3866 


3868* 


4036 


4038* 


4194 


4196* 


















652* 


1858 
























653* 


1331 


1790 


1811 


2280 


2715 


2958 


3025 


3081 


3161 


3184 


3236 


3259 


3303 


3343 


3352 


3366 


3371 


3390 


3401 


3426 


3436 


3441 


3446 


3455 


3461 


3487 


3601 


3656 


3867 


4037 


4195 
















654* 


























536* 


704 


705 


1351 


1425 


4258 


4277 














721 


1344* 


5432 






















547* 


























781* 


1349 


1385* 


1387 


1393* 


1400* 


1414 


4340 


4371 


4385 


4387 


4393 


4400 


4445 


4452 


4464 


4468 


4757 


4802* 


5407 


5420* 












719* 


1393 


1414 


4757 


4770 


















600* 


























590* 


600 
























589* 


599 
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SEQ 0135 



SWO 2 ■ 


000004 


SW03 ■ 


000010 


SW04 * 


000020 


SW05 = 


000040 


SW06 * 


000100 


SW07 = 


000200 


SWOB = 


000400 


SW09 « 


001000 


SW1 ■ 


000002 


SW10 ■ 


002000 


SW11 = 


004000 


SW12 = 


010000 


SW13 ■ 


020000 


SW14 * 


040000 


SW15 > 


100000 


SW2 


000004 


SW3 


000010 


SW4 


000020 


SW5 


000040 


SW6 


000100 


SW7 ■ 


000200 


SW8 


000400 


SW9 


001000 


TBIT ■ 


000020 


TBITPS 


001372 


TBITVE* 


000014 


TESTNO 


001352 


T1MERR 


002332 


TIMFLG 


002334 


TKVEC ■ 


000060 


TOFF 


036002 


TON 


036036 


TONUM 


001400 


TPVEC ■ 


000064 


TRAPPC 


001356 


TRAPPS 


001360 


TRAPVE* 


000034 


TRTVEC= 


000014 


TST1 


020550 


TST10 


021514 


TST11 


021646 


TST12 


022000 


TST13 


022142 


TST14 


022200 


TST15 


022216 


TST16 


022340 


TST17 


022462 


TST2 


020622 


TST20 


022612 


TST21 


022742 



588* 
587* 
586* 
585* 
584* 
583* 
582* 
581* 
599* 
580* 
579* 
578* 
577* 
576* 
575* 
59B* 
597* 
596* 
595* 
594* 
593* 
592* 
591* 
702* 
889* 
633* 
881* 
6173 
6205 
6233 
1292* 
1293* 
640* 
2196 
2221 

B92* 

1742* 

641* 

883* 

3864* 

884* 

3865* 

639* 

634* 

1445* 

1672 

1712 

1752 

1834* 

1856* 

1859 

1922* 

1969* 

1469* 

2017* 

2070* 



598 
597 
596 
595 
594 
593 
592 
591 



4584 

1433* 

1367* 

4441* 

6175 

6207 

1426 
1304* 

2249 
2274 
1582* 
1748 

1300* 

3874 

1301* 

3873 

1357* 



1694* 
1734* 
1778* 



4589 

4587* 

1368* 

6147 

6177 

6209 

1591 
1431* 

2746 
2792 
1588 
1763* 

1306 

4034* 

1305 

4035* 

1358* 



4602 
4602 

6149 
6179 
6212 



2813 
2859 
1603* 
6156 

1327* 
4044 
1328* 
4043 



6152 
6181 
6215 



6154 
6183 
6217 



2875 3516 
2902 3545 
1622* 1628 



1336 2282* 

4192* 4202 

1335 2283* 

4193* 4201 



6156 
6186 
6218 



3639 
3695 
1643* 



2290 
6147 
2289 
6147 



6158 
6189 
6220 



4584* 
4602* 
1662* 



2707* 
6149 
2708* 
6149 



6160 
6192 
6223 



6163 
6194 
6225 



6165 
6197 
6227 



6168 6170 
6200 6202 
6229 6231 



3257* 3265 
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SEQ 0138 



TST22 


023162 


21200 


























TST23 


023332 


21950 


























TST24 


023466 


22480 


























TST25 


023724 


2275 


2322* 
























T3T26 


024454 


24770 


























TST27 


025140 


26370 


























TST3 


020706 


14960 


























TST30 


025604 


2705 


2744* 
























TST31 


026000 


28110 


























TST32 


026206 


28730 


























TST33 


026336 


29250 


























TST34 


026632 


29980 


























TST35 


027042 


30600 


























TST36 


027166 


31340 


























TST37 


027470 


32110 


























TST4 


021030 


15350 


























TST40 


027756 


32880 


























TST41 


030144 


33380 


























TST42 


031122 


35150 


























TST43 


031310 


35540 


























TST44 


031372 


35860 


























TST45 


031570 


36380 


























TST46 


032112 


37160 


























TST47 


032760 


3861 


38900 
























TSTS 


021076 


1542 


15740 
























TST50 


033640 


4031 


40610 
























TST51 


034404 


4189 


42130 
























TST52 


034510 


42560 


























TST6 


021230 


1592 


16140 
























TST7 


021362 


1632 


16540 
























TYPBN a 


104406 


4549 


53860 
























TYPDS * 


104405 


4313 


4320 


4542 


4948 


53850 


















TYPE = 


104401 


1408 


4307 


4314 


4321 


4447 


4455 


4501 


4518 


4520 


4523 


4525 


4557 


4562 






4568 


4768 


4769 


4772 


4783 


4793 


4804 


4823 


4873 


4882 


4888 


4893 


4897 






4902 


4903 


4905 


4908 


4912 


4942 


4946 


5005 


5114 


5162 


5257 


5381 


5429 


TYPOC x 


104402 


4509 


4535 


4771 


4945 


53820 


















TYPON = 


104404 


53840 


























TYPOS ■ 


104403 


53630 


























UIPAR0= 


177640 


6690 


1698 


1907 


2001 


2101 


2159 


2644 


3520* 


3539* 


3733* 


4634 


4692 


4728 


UIPAR1= 


177642 


6700 


3734* 
























UIPAR2= 


177644 


6710 


3735* 
























UIPAR3= 


177646 


6720 


2815 


2930* 


3640* 


3736* 


















UIPAR4= 


177650 


6730 


2658* 


2686* 


2701* 


2931* 


3641* 


3742* 


3894* 


4072* 










UIPAR5= 


177652 


6740 


2659* 


2687* 


2702* 




















UIPAR6x 


177654 


6750 


























UIPAR7* 


177656 


6760 


1905 


1999 


3737* 




















UIPDRO* 


177600 


6580 
4678 


1738 


1954 


2049 


2092 


2147 


2651 


2819 


2823 


2837 


3730 


4065 


4630 


UIPDR1= 


177602 


6590 


























UIPDR2= 


177604 


6600 


























UIPDR3= 


177606 


6610 


2933* 


3642* 


3693* 




















UIPDR4* 


177610 


6620 


2656* 


2688* 


2940* 


3007* 


3643* 


3892* 


4079* 












UIPDR5* 


177612 


6630 


2657* 


2689* 






















UIPDR6* 


177614 


6640 


























UIPDR7* 


177616 


6650 


1952 


2047 






















USESTK« 


000700 


7050 


1539 


3524 


3541 


3661 


3756 


3910 


4082 


4220 


4243 









CFKTHBO PDP 11/34 MEM MGNT DIAG MACY11 30A(1052) 27-JUN-78 09:33 PAG? 139 
CFKTHB.P11 27-dUN 



VIRT2 
WASR6 



001404 
001354 



WASSRO 001366 



WASSR2 001370 



W8IT > 

$APTHD 

$ASTAT* 

SATYC 

$ATY1 

$ATY3 

SATY4 

$AUTOB 

$3ASE 

S3DADR 

SBDDAT 

SBELL 

$BIN 

$CDW1 

$CDW2 

$CHARC 

$CKSWR 

SCLR.T 

$CMTAG 

$CM1 ■ 

$CM2 = 

$CM3 » 

$CM4 » 

$CNTLC 

SCNTLG 

$CNTLU 

SCPUOP 

SCRLF 

$DBLK 

SDB20 

SDDWO 

$DDW1 

SDDW10 

SDDW11 

SDDW12 

$DDW13 

SDDW14 

$DDW15 

$DDW2 

SDDW3 

$DDW4 

$DDW5 

$DDW6 



000100 
000204 

0401 16 
040072 
040100 
0401 10 
001134 
001302 
001122 
001126 
001216 
040412 
001306 
001310 
040066 
036466 
034750 
001 100 
000006 
000014 
000006 
000006 
037416 
037430 
037423 
001254 
001223 
041056 
041 162 
001312 
001314 
001336 
001340 
001342 
001344 
001346 
001350 
001316 
001320 
001322 
001324 
001326 



18:27 




CROSS REFERENCE 


TABLE — 


■ USER SYMBOLS 












SEQ 0137 


8930 


2352* 


2378* 


2404* 


2431* 


2454* 


2496* 


2522* 


2548* 


2574* 


2600* 


2671* 


2679 


2712* 


4729 


4735 


6168 


6170 


6220 
















8940 


2670* 


6170 






















8820 


1302* 


1329* 


2281* 


6147 


6149 
















8870 


1330* 


2279* 


2714* 


2957* 


2959 


3024* 


3026 


3072* 


3074 


3160* 


3163 


3183* 


3235* 


3238 


3258* 


3370* 


3372 


3386* 


3387 


3425* 


3435* 


3445* 


3454* 


3467* 


3479* 


3600* 


3603 


3655* 


3674 


3866* 


4036* 


4194* 


6149 


6183 


6189 


6194 


6202 


6205 


6209 


6212 


6218 


6220 


6223 


6229 


6233 














8880 


1331* 


1790* 


1792 


1811* 


1812 


2280* 


2715* 


2958* 


2966 


3025* 


3033 


3081* 


3082 


3161* 


3170 


3184* 


3236* 


3245 


3259* 


3303* 


3304 


3343* 


3345 


3352* 


3354 


3371* 


3375 


3390* 


3391 


3401* 


3403 


3426* 


3436* 


3446* 


3455* 


3461* 


3462 


3487* 


3488 


3601* 


3607 


3656* 


3677 


3867* 


4037* 


4195* 


6149 


6186 


6189 


6197 


6200 


6202 


6205 


6209 


6212 


6218 


6220 


6227 


6229 


6231 










7030 


2762 


2771 


2782 


2829 


2838 


2849 














741 


7470 
























5075 


5090 
























5046 


50480 
























50440 


























4990 


50450 
























4460 


50470 
























7780 


1418* 


4765 


4929 




















8560 


























7730 


























7750 


























8070 


4447 


4480 






















5110* 


5113* 


5114 


51210 




















8580 


























8590 


























5007* 


5017* 


5024 


5033* 


50380 


















47570 


5390 
























4326 


43290 
























7610 


1346 


1347 


1355 


1361 


1362 


1363 














7930 


7940 


7950 


7960 


7970 


7980 


7990 














7930 


7940 


7950 


7960 


7970 


7980 


7990 














7910 


793 
























7990 


8000 


8010 


8020 


8030 


8040 


8050 














4783 


4873 


49220 






















4768 


4924* 
























4793 


4897 


49230 






















8300 
8090 


4321 


4455 


4480 


4S01 


4520 


4525 


4568 


4804 


4902 


4922 


S006 


5041 


5223 


5257 


52650 






















4554 


5322* 
























8600 


























8610 


























8700 


























8710 


























8720 


























8730 


























8740 


























8750 


























8620 


























8630 


























8640 


























8650 


























8660 
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SEQ 0138 



$DDW7 


001330 


8670 


























SDDW8 


001332 


8680 


























$DDW9 


001334 


8690 


























SDEVCT 


001236 


8210 


























$DEVM 


001304 


857* 


























$DOAGN 


034770 


4303 


4324 


4331 


43370 




















$DTBL 


041046 


5226 


52610 
























$ENDAD 


034760 


728 


1406 


43330 


4475 




















$ENDCT 


034606 


1361 


43050 
























SENULL 


035034 


43530 


























SENV 


001246 


8260 


1412 


4457 


4985 


5053 


5077 
















JENVM 


001247 


8270 


1398 


4987 


4992 


5055 


















$EOP 


034552 


42950 


4950 
























SEOPCT 


034600 


1361* 


43020 


4306 






















$ERFLG 


001103 


7640 


4360 


4389 


4391 


4397* 


4419 


4442* 


4480 












SERMAX 


0011 15 


7700 


1364* 


4391 


4414* 


4419 


















$ERROR 


035320 


1355 


44330 
























SERRPC 


0011 16 


7710 


4449* 


4450* 


4451 


4480 


4507 


6147 


6149 


6152 


6154 


6156 


6158 


6160 






6163 


6165 


6168 


6170 


6173 


6175 


6177 


6179 


6181 


6183 


6186 


6189 


6192 






6194 


6197 


6200 


6202 


6205 


6207 


6209 


6212 


6215 


6217 


6218 


6220 


6223 






6225 


6227 


6229 


6231 


6233 


















SERRTB 


001412 


9110 


4515 
























JERTTL 


001 1 12 


7680 


4318 


4322* 


4448* 


4480 


















SESCAP 


001214 


8060 


1363* 


4413* 


4471 


4473 


4480 
















SETABL 


001246 


8250 


























SETEND 


001352 


753 


8780 
























SFATAL 


001230 


8180 


5081* 
























$FFLG 


040336 


5044* 


5047* 


5075 


5084* 


50920 


















SFILLC 


001156 


7890 


5010 


5041 






















SFILLS 


001155 


7880 


5041 
























SGDADR 


001 120 


7720 


























SGDDAT 


001124 


7740 


























SGET42 


034732 


43230 


























SGTSWR 


036536 


47690 


5388 
























$HD a 


000000 


521 


























SHIBTS 


000204 


7480 


























$1CNT 


001 104 


7650 


4404* 


4405 


4407* 


4418 


















SILLUP 


041546 


5399 


5415 


54360 






















SINTAG 


001135 


7790 


4785 


4805 


4929 




















SITEMB 


0011 14 


7690 


4451* 


4459 


4480 


4504 


















$LF 


001224 


8100 


4480 


4912 


4922 


5041 


















$LFLG 


040335 


5085* 


50910 
























$LOOP 


035026 


4345 


43490 
























$LPADR 


001 106 


7660 


1379* 


4395* 


4411* 


4416 


4418 
















$LPERR 


001110 


7670 


1380* 


1446* 


1461* 


1470* 


1485* 


1497* 


1511* 


1524* 


1576* 


1587* 


1616* 


1627* 






1656* 


1667* 


1696* 


1707* 


1736* 


1747* 


1789* 


1798* 


1822* 


1879* 


1888* 


1909* 


1926* 






1935* 


1956* 


1972* 


1985* 


2003* 


2020* 


2033* 


2051* 


2072* 


2081* 


2090* 


2099* 


2108* 






2206* 


2220* 


2250* 


2273* 


2337* 


2363* 


2389* 


2416* 


2440* 


2463* 


2481* 


2507* 


2533* 






2559* 


2585 + 


2611* 


2661* 


2704* 


2755* 


2791* 


2822* 


2858* 


2877* 


2888* 


2901* 


2941* 






2985* 


3008* 


3046* 


3061* 


3090* 


3141* 


3145* 


3151* 


3194* 


3216* 


3220* 


3226* 


3269* 






3296* 


3316* 


3342* 


3351* 


3360* 


3421* 


3496* 


3517* 


3544* 


3556* 


3571* 


3592* 


3620* 






3648* 


3694* 


3738* 


3749* 


3769* 


3782* 


3794* 


3805* 


3819* 


3833* 


3846* 


3860* 


3913* 






3929* 


394E* 


3960* 


3977* 


3995* 


4012* 


4029* 


4068* 


4098* 


4111* 


4123* 


4134* 


4147* 






4161* 


4174* 


4188* 


42324' 


4245* 


4395 


4412* 


4418 


4470 










JMADR1 


001260 


8430 


























$MADR2 


001264 


8470 
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SEQ 0139 



SMADR3 


001270 


8500 


























$MADR4 


001274 


8530 


























$MAIL 


001226 


749 


753 


8160 


1397 


1412 


4410 


4457 


4985 












$MAMS1 


001256 


8370 


























$MAMS2 


001262 


8450 


























SMAMS3 


001266 


8480 


























SMAMS4 


001272 


8510 


























SMBADR 


000206 


7490 


























$MFLG 


040334 


5045* 


5051 


5086* 


50900 




















$MNEW 


037446 


4772 


49270 
























SMSGAD 


001242 


8230 


5061* 


5064 






















SMSGLG 


001244 


8240 


5066* 
























SMSGTY 


001226 


8170 


5059 


5067* 


5079 


5083* 


















$MSWR 


037435 


4769 


49250 
























$MTYP1 


001257 


8380 


























$MTYP2 


001263 


8460 


























$MTYP3 


001267 


8490 


























$MTYP4 


001273 


8520 


























SMXCNT 


035316 


4408 


44180 
























$NULL 


001154 


7870 


5012 


5041 






















$NWTST» 


000001 


14380 


1440 


14630 


1465 


14880 


1490 


15260 


1528 


15640 


1566 


16060 


1608 


16460 






1648 


16860 


1688 


17260 


1728 


17660 


1768 


18240 


1826 


18480 


1850 


18650 


1867 






19110 


1913 


19600 


1962 


20050 


2007 


20530 


2055 


21 100 


2112 


2182* 


2184 


22350 






2237 


23050 


2307 


24650 


2467 


26130 


2615 


27270 


2729 


27940 


2796 


28620 


2864 






29160 


2918 


29890 


2991 


30490 


3051 


31220 


3124 


3199* 


3201 


32740 


3276 


33240 






3326 


35030 


3505 


35470 


3549 


35740 


3576 


36230 


3625 


37040 


3706 


38780 


3880 






40490 


4051 


42050 


4207 


42470 


4249 
















$OCNT 


040636 


5154* 


5183* 


51960 






















ifcOCTVL 


041264 


5324 


53490 
























$OMQDE 


040640 


5149* 


5153* 


5158 


5161* 


5172* 


51980 
















$OVER 


035302 


4372 


4388 


4396 


4406 


44150 


















$PASS 


001234 


8200 


1397* 


4299* 


4300* 


4311 


4352 


4402 


4419 


4940 










$PASTM 


000212 


7510 


























$PWRAD 


041530 


54320 


























SPWRDN 


041370 


1359 


53990 


5427 






















$PWRMG 


041524 


54300 


























$PWRUP 


041442 


5409 


5415# 
























$OUES 


001222 


8080 


4480 


4823 


4905 


4922 


5041 
















$RDCHR 


037010 


48360 


5391 
























$RDDEC= 


****** U 


5393 


























$RDLIN 


037130 


48640 


5392 
























$RDOCT= 


****** u 


5393 


























JRDSZ x 


000010 


48570 


























JREGAD 
$REGO 


001160 
001162 


7910 
7930 
6209 


4435* 
6215 


6152 


6154 


6158 


6160 


6163 


6165 


6175 


6189 


6192 


6194 


6197 


SREG1 


001164 


7940 


4436* 


6152 


6158 


6160 


6165 


6179 


6200 


6207 


6209 


6212 


6215 


6223 


J.REG2 


001166 


6225 
7950 


4437* 


6160 


6165 


6179 


6181 


6183 


6186 


6194 


6207 


6225 






JREG3 
$REG4 


001 1 70 


7960 


4438* 


6, /3 


6175 


6183 


6197 


6212 














001172 » 


7970 


4439* 


6168 


6-170 


6186 


6189 


6192 


6194 


6197 


6220 


6227 






JREG5 


001174 


7980 


4440* 


6165 


6170 


6173 


6175 


6177 














SRESRE 


041 124 


52990 


5394 
























JRTNAD 


035030 


43510 


























$RTRN 


035024 


1367 


1369* 


1374* 


4327 


43460 


















SR2A - 


, ****** U 


5395 
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SEQ 0140 



SSAVRE 


041066 


5283* 


5393 
























S5AVR6 


041552 


5408* 


5416 


5417* 


5418* 


5438* 


















SSCOPE 


035040 


1353 


4369* 
























$SETUP» 


000137 


711* 


1352 


1353 


1355 


1357 


1359 


1361 


1362 


1363 


1365 


1379 


1406 


1409 






4297 


4370 


4434 


4467 


4475 


4752 


4929 


5434 












$STUP ■ 


177777 


711* 


























SSVl.AD 


035246 


4380 


4409* 
























$SVPC a 


000204 


726* 


731 
























$SWR » 


177400 


515* 


521 


525 


526 


527 


528 


529 


530 


531 


532 


805 


806 


807 






1362 


1363 


1365 


1379 


1380 


1446 


1470 


1497 


1536 


1575 


1615 


1655 


1695 






1735 


1779 


1835 


1857 


1876 


1923 


1970 


2018 


2071 


2121 


2196 


2249 


2323 






2478 


2638 


2745 


2812 


2874 


2926 


2999 


3061 


3135 


3212 


3289 


3339 


3516 






3555 


3587 


3639 


3717 


3891 


4062 


4214 


4257 


4291 


4298 


4325 


4338 


4352 






4361 


4362 


4363 


4364 


4365 


4371 


4383 


4385 


4386 


4389 


4390 


4391 


4398 






4399 


4400 


4412 


4415 


4418 


4425 


4426 


4427 


4428 


4429 


4445 


4452 


4484 






4468 


4480 


5433 






















SSWREG 


001250 


828* 


1400 
























SSWRMK* 


000000 


532 


533 


4365 


4366 


4387 


















STBIT 


035032 


1378* 


4342* 


4352* 


5434* 




















STESTN 


001232 


819* 


4410* 
























STIMES 


001212 


U05* 


1362* 


4298* 


4398* 


4405 


4408* 


4418 














$TKB 


001146 


784* 


4750 


4761 


4778 


4840 


4846 
















STKS 


001 144 


783* 


4750 


4759 


4775 


4787* 


4807* 


4838 


4844 












$TMPO 


001176 


799* 


2343* 


2348 


2369* 


2374 


2395* 


2400 


2487* 


2492 


2513* 


2518 


2539* 


2544 






2565* 


2570 


2591* 


2596 


2663* 


2943* 


2973 


3010* 


3040 


3365* 


3372 


3663* 


3669* 






3673* 


3676* 


3680* 


3681 


6170 


6181 


6183 


6186 


6202 


6220 








$TMP1 


001200 


800* 


3362* 


3374* 


3377* 


3378 


3384* 


3389* 


3393* 


3394 


3422* 


3424* 


3430* 


3434* 






3440* 


3444* 


3450* 


3453* 


3459* 


3466* 


3473* 


3478* 


3485* 


3491* 


3599* 


3605* 


3609* 


$TMP2 


001202 


3610 

801* 
4176* 


3366* 
4177 


3.^5 
6202 


3821* 


3822 


3848* 


3849 


3980 


3981* 


4015* 


4017 


4149* 


4150 


$TMP3 


001204 


802* 


























$TMP4 


001206 


803* 


























$TMP5 


001210 


804* 


4940* 


4941* 


4947 




















$TN » 


000053 


515* 


521 


1438 


1446* 


1463 


1470* 


1488 


1497* 


1526 


1536* 


1542 


1564 


1575* 






1592 


1606 


1615* 


1632 


1646 


1655* 


1672 


1686 


1695* 


1712 


1726 


1735* 


1752 






1766 


1779* 


1824 


1835* 


1848 


1857* 


1859 


1865 


1876* 


1911 


1923* 


1960 


1970* 






2005 


2018* 


2053 


2071* 


2110 


2121* 


2182 


2196* 


2235 


2249* 


2275 


2305 


2323* 






2465 


2478* 


2613 


2638* 


2705 


2727 


2745* 


2794 


2812* 


2862 


2874* 


2916 


2926* 






2989 


2999* 


3049 


3061* 


3122 


3135* 


3199 


3212* 


3274 


3289* 


3324 


3339* 


3503 






3516* 


3547 


3555* 


3574 


3587* 


3623 


3639* 


3704 


3717* 


3861 


3876 


3891* 


4031 






4049 


4062* 


4189 


4205 


4214* 


4247 


4257* 














$TPB 


001152 


786* 


5030* 


5041 






















$TPFLG 


001157 


790* 


4979 


5041 






















$TPS 


001 150 


785* 


5028 


5041 






















STRAP 


041302 


1357 


5358* 
























STRAP2 


041324 


5369* 


5380 
























$TRP * 


000015 


5373* 
5394* 


5382* 
5395* 


5383* 


5384* 


5385* 


5386* 


5387* 


5388 


5389* 


5390 


5391* 


5392* 


5393* 


$TRPAD 


041336 


5363 


5380* 
























STSTM 


000210 


750* 


























STSTNM 


001102 


763* 


4297- 


4360 


4387 


4409* 


4410 


4415 


4419 


4441 


4444 


4480 


4943 




STTYIN 


037406 


4866 


4867 


4885 


4903 


4917 


4921* 
















STYPBN 


040340 


5107* 


5386 
























STYPDS 


040642 


5211* 


5385 
























$TYPE 


037610 


4979* 


5072 


5373 


5381 
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SEQ 0141 



$TYPEC 


040022 


4809 


5009 


5016 


5023 


5028* 


5029 
















STYPEX 


040070 


5034 


5036 


5039* 






















STYPOC 


040440 


5152* 


5382 
























STYPON 


040454 


5151 


5154* 


5384 






















STYPOS 


040414 


5147* 


5383 
























$UNIT 


001240 


822* 


























SUNITM 


000214 


752* 


























$USWR 


001252 


829* 


























SVECT1 


001276 


854* 


























SVECT2 


001300 


855* 


























SXTSTR 


035052 


4374* 


























$$GET4» 


000001 


4325* 


4330 
























SOFILL 


040637 


5148* 


5152* 


5162 


5197* 




















$40CAT* 


****** y 


4371 


4454 
























» 


052267 


713* 


717* 


726 


727* 


729* 


731* 


737 


738* 


740* 


742* 


760* 


811 


1342* 






1350 


1379 


1380 


4310* 


4352 


4354* 


4418 


4419 


4480 


4571* 


4750 


4921* 


4922 






4929* 


5041 


5093* 


5265* 


5349* 


5411 


5437 


5445* 












.$ASTA* 


****** u 


5045 


5048 
























.$X 


000204 


737* 


742 
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SEQ 0142 



ADDTST 
COMMEN 
ENDCOM 
ERROR 



ESCAPE 

GcTPRI 

GETSWR 

MJGI 

M5G10 

MSG1 1 

MSGI2 

MSG13 

MSG14 

MSG15 

MSG16 

MSG17 

MSG2 

MSG20 

MSG21 

MSG21A 

MSG21B 

MSG21C 

MSG22 

M3G23 

MSG24 

MSG25 

MSG26 

MSG27 

MSG3 

MSG30 

MSG31 

MSG31A 

MSG32 

MSG33 

MSG34 

MSG35 

MSG36 

MSG36A 

MSG37 

MSG4 

MSG40 

MSG41 

V.SG42 

MSG43 

MSG44 

MSG45 

MSG5 

MSG6 



71 0# 

1* 
1* 
537* 
1715 
2029 
2524 
2953 
3240 
3493 
3869 
4141 
1* 
1* 
1* 
1438* 
1686* 
1726* 
1766* 
1824* 
1848* 
1865* 
191 1* 
1960* 
1463* 
2005* 
2053* 
2110* 
2182* 
2235* 
2305* 
2465* 
2613* 
2727* 
2794* 
2862* 
1488* 
2916* 
2989* 
3049* 
3121* 
3198* 
3273* 
3321* 
3502* 
3547* 
3573* 
1526* 
3622* 
3704* 
3878* 
4C4S* 
4205* 
4247* 
1563* 
1606* 



2337 
643* 
643* 
1303 
1750 
2041 
2550 
2961 
3247 
3533 
3905 
4155 
643* 
643* 
643* 
1440 
1688 
1728 
1768 
1826 
1850 
1867 
1913 
1962 
1465 
2007 
2055 
2112 
2184 
2237 
2307 
2467 
2615 
27^9 
2796 
2864 
1490 
2918 
2991 
3051 
3124 
3201 
3276 
3326 
3505 
3549 
3576 
1528 
3625 
3706 
3880 
4051 
4207 
4249 
1566 
1608 



1333 
1755 
2130 
2576 
2968 
3261 
3567 
3923 
4168 

4338 
1409# 



1454 
1785 
2141 
2602 
3012 
3306 
3594 
3940 
4182 



1479 
1794 
2152 
2673 
3020 
3347 
3612 
3955 
4197 



1507 
1806 
2164 
2717 
3028 
3356 
3683 
3971 
4223 



1520 
1815 
2212 
2764 
3035 
3380 
3759 
3989 
4228 



1545 
1841 
2266 
2775 
3065 
3396 
3764 
4006 
4239 



1590 
1860 
2285 
2784 
3076 
3405 
3777 
4025 
4266 



1595 
1883 
2354 
2831 
3084 
3427 
3789 
4039 
4273 



1630 
1896 
2380 
2842 
3154 
3437 
3800 
4088 
4658 



1635 
1930 
2406 
2851 
3165 
3447 
3812 
4093 
4672 



1670 
1943 
2433 
2884 
3172 
3456 
3827 
4106 
4686 



1675 
1981 
2456 
2896 
3186 
3469 
3840 
4118 
4700 



1710 
1993 
2498 
2945 
3229 
3481 
3855 
4129 



ZMZl 



CFKTHBO PDP 11/3 
CFKTHB.P11 27 


4 MfcM Ml 
-JUN-78 


jNI U1AU 

09:27 


MAUT 1 1 


JUKI 1 «S 

CROSS 


REFERENCE 


TABLE " 


MACRO 


NAMES 












SEQ 0143 


MSG7 


1646* 


1648 




























MULT 
NEWTST 


1* 
1* 


643* 
643* 


1438 


1463 


1488 


1526 


1564 


1606 


1646 


1686 


1726 


1766 


1R24 


1848 


1865 




191 1 


1 960 


2005 


2053 


2110 


2182 


2235 


2305 


2465 


2613 


2727 


2794 


2862 


2916 


2989 




3049 


3122 


3199 


3274 


3324 


3503 


3547 


3574 


3623 


3704 


3878 


4049 


4205 


4247 




POP 


1* 


643* 


5087 


508B 


5252 


5304 


5420 


5421 
















PUSH 


1* 


643* 


5048 


5050 


5071 


5211 


5284 


5401 


5407 














REPORT 


1* 


643* 




























SAVR 
SCOPE 


710* 
538* 


4435 
1 445 


1469 


1496 


1535 


1574 


1614 


1654 


1694 


1734 


1778 


1834 


1856 


1875 


1922 




1969 


2017 


2070 


2120 


2195 


2248 


2322 


2477 


2637 


2744 


2811 


2873 


2925 


2998 


3060 




3134 


3211 


3288 


3338 


3515 


3554 


3586 


3638 


3716 


3890 


4061 


4213 


4256 


4296 




SETPRI 


1* 


643* 




























SETTRA 


5373* 


53~2 


5383 


5384 


5385 


5386 


5388 


5390 


5391 


5392 


5393 


5394 








SETUP 


1* 


643* 


1344 


























SKIP 


1* 


643* 


1542 


1592 


1632 


1672 


1712 


1752 


1859 


2275 


2705 


3861 


4031 


4189 




SLASH 


1* 


643* 




























SPACE 
STARS 


643* 


643* 


724 


734 


736 


743 


756 


811 


814 


1284 


1291 


1311 


1318 


1438 


1444 




1463 


1468 


1488 


1495 


1526 


1534 


1550 


1561 


1564 


1573 


1606 


1613 


1646 


1653 


1686 




1693 


1 726 


1733 


1766 


1777 


1824 


1833 


1848 


1855 


1865 


1874 


1911 


1921 


1960 


1968 




2005 


2016 


2053 


2069 


2110 


2119 


2182 


2194 


2235 


2247 


2305 


2321 


2465 


2476 


2613 




2636 


2727 


2743 


2794 


2810 


2862 


2872 


2904 


2914 


2916 


2924 


2989 


2997 


3049 


3059 




3103 


31 18 


3122 


3133 


3199 


3210 


3274 


3287 


3324 


3337 


3503 


3514 


3547 


3553 


3574 




3585 


3623 


3637 


3696 


3701 


3704 


3715 


3878 


3889 


4049 


4060 


4205 


4212 


4247 


4255 




4287 


4357 


4421 


4482 


4576 


4583 


4595 


4601 


4611 


4619 


4640 


4648 


4709 


4723 


4749 




4752 


4828 


4857 


4964 


5043 


5100 


5124 


5201 


5268 


5313 


5352 


5397 


5413 






SWRSU 


1* 


643* 


1381* 


























TIMMSG 


710* 


1608 


1648 


1688 


1728 






















TIMTST 


710* 


1615 


1655 


1695 


1"15 






















TRMTRP 


5373* 






























TYPBIN 


1* 


643* 


4548 


























TYPDEC 


1* 


643* 


4311 


4318 


4541 


4947 




















TYPNAM 


1* 


643* 


1402 


























TYPNUM 


1* 


643* 




























TYPOCS 


1* 


643* 




























TYPOCT 


1* 


643* 


4507 


4534 


4770 


4944 




















TYPTXT 


1* 


643* 


4307 


4314 
























USER 


710* 


880 




























WMSG 


710* 


2729 


2796 


























WTST 


710* 


2745 


2813 


























$$CMRE 


754* 


793 


794 


795 


796 


797 


798 


















$$CMTM 


754* 


799 


800 


801 


802 


803 


804 


















$$ESCA 
$$NEWT 


1* 
1 * 


643* 
643* 


1438 


1463 


1488 


1526 


1564 


1606 


1646 


1686 


1726 


1766 


1824 


1848 


1865 


191 1 


1960 


2005 


2053 


2110 


2182 


2235 


2305 


2465 


2613 


2727 


2794 


2862 


2916 


2989 




3049 


3122 


3199 


3274 


3324 


3503 


3547 


3574 


3623 


3704 


3878 


4049 


4205 


4247 




JSSET 


5373* 


5382 


5383 


5384 


5385 


5386 


5308 


5390 


5391 


5392 


5393 


5394 








$$SETM 


1397* 






























$$SETU 
$$SKIP 


1365* 
1* 


643* 


1542 


1592 


1632 


1672 


1712 


1752 


1859 


2275 


2705 


3861 


4031 


4189 




.EQUAT 


1* 


515* 


533 


























.HEADE 


1* 


515* 


516 


























.KT11 


1* 


515* 


643 


























.SETUP 


1* 


515* 


711 


























, swum 


1* 


515* 


521 
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SEQ 0144 



.SWULO 


533* 






.JACT1 


1* 


515* 


722 


,$APTB 


1* 


812* 




■ SAI'TH 


1* 


515* 


732 


,$APTY 


1* 


515* 


5041 


,$ASTA 


1* 






,*CATC 


1* 


515* 


711 


,SCMTA 


1* 


515* 


754 


,$DI12D 


1* 






, $0320 


1* 


515* 


5311 


,$D1V 


1* 






. tEUP 


1* 


515* 


4285 


■5CRRO 


Iff 


515* 


4419 


, JE«RT 


1* 


515* 




, iMULT 


1* 






,$PQWE 


1* 


515* 


5395 


$R\ND 


1* 






6RDDE 


1* 






B^:)OC 


1* 






3RFAD 


1* 


. 515* 


4747 


J32AZ 


1* 






iSAVE 


1* 


515* 


5266 


■6SB2D 


1* 






4SU20 


1* 






JSCOP 


1* 


515* 


4355 


15IZE 


1* 






tSUPR 


1* 






4TRAP 


1* 


515* 


5350 


tTYPB 


1* 


515* 


5098 


$TYPD 


1* 


515* 


5199 


$TYPE 


1* 


515* 


4962 


STYPO 


1* 


515* 


5122 


$40CA 


1* 






1 170 


1* 






A3S. 


052267 


000 





) 



ERRORS DETECTED: 

CFKTHB,CFKTHB.LST/CRF/S0L*CFKTHB.SML,CFKTHB.P11 
RUN-TIME: 22 30 2 SECONDS 
RUN-TIME RATIO: 266/55=4.8 
CORE USED: 39K (77 PAGES) 



